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1. INTRODUCTION 



The standard CP/M system assumes operation on an Intel MDS-800 
microcomputer development system, but is designed so that the user can 
alter a specific set of subroutines which define the hardware 
operating environment. In this way, the user can produce a diskette 
which operates with any IBM-3741 format compatible drive controller 
and other peripheral devices. 

Altnough standard CP/M 2.0 is configured for single density floppy 
disks, field-alteration features allow adaptation to a wide variety of 
disk subsystems from single drive minidisks through high-capacity 
"hard disk" systems. In order to simplify the following adaptation 
process, we assume that CP/M 2.0 will first be configured for single 
density floppy disks where minimal editing and debugging tools are 
available. If an earlier version of CP/M is available, the 

customizing process is eased considerably. In this latter case, you 
may wisn to briefly review the system generation process, and skip to 
later sections which discuss system alteration for non-standard disk 
systems . 

In order to achieve device independence, CP/M is separated into 
tnree distinct modules: 

BIOS - basic I/O system which is environment dependent 
BDOS - basic disk operating system which is not dependent 

upon the hardware configuration 
CCP - the console command processor which uses the BDOS 

Of these modules, only the BIOS is dependent upon the particular 
hardware. That is, the user can "patch" the distribution version of 
CP/M to provide a new BIOS which provides a customized interface 
between the remaining CP/M modules and the user's own hardware system. 
The purpose of this document is to provide a step-by-step procedure 
for patching your new BIOS into CP/M. 



If CP/M is being tailored to your computer system for the first 
time, the new BIOS requires some relatively simple software 
development and testing. The standard BIOS is listed in Appendix B, 
and can be used as a model for the customized package. A skeletal 
version of the BIOS is given in Appendix C which can serve as the 
basis for a modified BIOS. In addition to the BIOS, the user must 
write a simple memory loader, called GETSYS, which brings the 
operating system into memory. In order to paten the new BIOS into 
CP/M, the user must write the reverse of GETSYS, called PUTSYS, which 
places an altered version of CP/M back onto the diskette. PUTSYS can 
be derived from GETSYS by changing the disk read commands into disk 
write commands. Sample skeletal GETSYS and PUTSYS programs are 
described in Section 3, and listed in Appendix D. In order to make 
the CP/M system work automatically, the user must also supply a cold 
start loader, similar to the one provided with CP/M (listed in 
Appendices A and B) . A skeletal form of a cold start loader is given 
in Appendix E which can serve as a model for your loader. 
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2. FIRST LEVEL SYSTEM REGENERATION 

The procedure to follow to paten the CP/M system is given below in 
several steps. Address references in each step are shown with a 
following "H" which denotes the hexadecimal radix, and are given for a 
20K CP/M system. For larger CP/M systems, add a "bias" to each 
address whicn is shown with a "+b" following it, where b is equal to 
the memory size - 20K. Values for b in various standard memory sizes 
are 



24K 


b = 


24K - 


20K 




4K 




1000H 


32K 


b = 


32K - 


20K 




12K 




3000H 


40K 


b = 


40K - 


20K 




20K 




5000H 


4 8K 


: b = 


48K - 


20K 




28K 




7000H 


5 6K 


: b = 


56K - 


20K 




36K 




9000H 


62K 


b = 


62K - 


20K 




42K 




A800H 


64K 


: b = 


64K - 


20K 




44K 




B000H 



Note: The standard distribution version of CP/M is set for 
operation within a 20K memory system. Therefore, you must first bring 
up the 20K CP/M system, and then configure it for your actual memory 
size (see Second Level System Generation) . 

(1) Review Section 4 and write a GETSYS program which reads the 
first two tracks of a diskette into memory. The data from the diskette 
must begin at location 3380H. Code GETSYS so that it starts at 
location 100ri (base of the TPA) , as shown in the first part of 
Appendix d. 

(2) Test tne GETSYS program by reading a blank diskette into 
memory, and check to see that the data has been read properly, and 
that the diskette has not been altered in any way by the GETSYS 
program . 

(3) Run the GETSYS program using an initialized CP/M diskette to 
see if GETSYS loads CP/M starting at 3380H (the operating system 
actually starts 128 bytes later at 3400H) . 

(4) Review Section 4 and write the PUTSYS program which writes 
memory starting at 3380H back onto the first two tracks of the 
diskette. The PUTSYS program should be located at 200H, as shown in 
the second part of Appendix D. 

(5) Test the PUTSYS program using a blank uninitialized diskette 
by writing a portion of memory to the first two tracks; clear memory 
and read it back using GETSYS. Test PUTSYS completely, since this 
program will be used to alter CP/M on disk. 

(6) Study Sections 5, 6, and 7, along with the distribution 
version of the BIOS given in Appendix B, and write a simple version 
which performs a similar function for the customized environment. Use 
the program given in Appendix C as a model. Call this new BIOS by the 
name CBIOS (customized BIOS) . Implement only the primitive disk 
operations on a single drive, and simple console input/output 
functions in this phase. 
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(7) Test CBIOS completely to ensure that it properly performs 
console character I/O and disk reads and writes. Be especially 
careful to ensure that no disk write operations occur accidently 
during read operations, and check that the proper track and sectors 
are addressed on all reads and writes. Failure to make these checks 
may cause destruction of the initialized CP/M system after it is 
patched. 

(3) Referring to Figure 1 in Section 5, note that the 3I0S is 
placed between locations 4A00H and 4FFFH. Read the CP/M system using 
GETSYS and replace the BIOS segment by the new CBIOS developed in step 
(6) and tested in step (7) . This replacement is done in the memory of 
the machine, and will be placed on the diskette in the next step. 

(9) Use PUTSYS to place the patched memory image of CP/M onto the 
first two tracks of a blank diskette for testing. 

(10) Use GETSYS to bring the copied memory image from the test 
diskette back into memory at 3380H, and check to ensure that it has 
loaded back properly (clear memory, if possible, before the load). 
Upon successful load, brancn to the cold start code at location 4A00H. 
The cold start routine will initialize page zero, then jump to the CCP 
at location 3400H which will call the BDOS, which will call the CBIOS. 
The CBIOS will be asked by the CCP to read sixteen sectors on track 2, 
and if successful, CP/M will type "A>", the system prompt. 

When you make it this far, you are almost on the air. If you have 
trouble, use whatever debug facilities you have available to trace and 
breakpoint your CBIOS. 

(11) Upon completion of step (10) , CP/M has prompted the console 
for a command input. Test the disk write operation by typing 

SAVE 1 X.COM 

(recall that all commands must be followed by a carriage return). 
CP/M should respond with another prompt (after several disk accesses) : 
A> 

If it does not, debug your disk write functions and retry. 

(12) Then test the directory command by typing 
DIR 

CP/M should respond with 
A: X COM 

(13) Test tne erase command by typing 
ERA X.COM 
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CP/M should respond with the A promot. When you make it this far, y° u 
snould have an operational system which will only require a bootstrap 
loader to function completely. 

(14) Write a bootstrap loader which is similar to GETSYS, and 
place it on track 0, sector 1 using PUTSYS (again using the test 
diskette, not the distribution diskette) . See Sections 5 and 8 for 
more information on the bootstrap operation. 

(15) Retest the new test diskette with the bootstrap loader 
installed by executing steps (11) , (12) , and (13) . Upon completion of 
these tests, type a control-C (control and C keys simultaneously) . The 
system should then execute a "warm start" which reboots the system, 
and types the A prompt. 

(16) At this point, you probably have a good version of your 
customized CP/M system on your test diskette. Use GETSYS to load CP/M 
from your test diskette. Remove the test diskette, place the 
distribution diskette (or a legal copy) into the drive, and use PUTSYS 
to replace the distribution version by your customized version. Do 
not make this replacement if you are unsure of your patch since this 
step destroys the system which was sent to you from Digital Research. 

(17) Load your modified CP/M system and test it by typing 
DIR 

CP/M should respond with a list of files which are provided on the 
initialized diskette. One such file should be the memory image for 
the debugger, called DDT.COM. 

NOTE: from now on, it is important that you always reboot tne CP/M 
system (ctl-C is sufficient) when the diskette is removed and replaced 
by anotner diskette, unless the new diskette is to be read only. 

(18) Load and test the debugger by typing 
DDT 

(see the document " CP/M Dynamic Debugging Tool (DDT)" for operating 
procedures. You should take tne time to become familiar with DDT, it 
will be your best friend in later steps. 

(19) Before making further CBIOS modifications, practice using 
the editor (see the ED user's guide), and assembler (see the ASM 
user's guide). Then recode and test the GETSYS, PUTSYS, and CBIOS 
programs using ED, ASM, and DDT. Code and test a COPY program which 
does a sector-to-sector copy from one diskette to another to obtain 
back-up copies of the original diskette (NOTE: read your CP/M 
Licensing Agreement; it specifies your legal responsibilities when 
copying the CP/M system) . Place the copyright notice 

Copyright (c) , 1979 
Digital Research 
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on each copy which is made with your COPY program. 

(20) Modify your CBIOS to include the extra functions for 
punches, readers, signon messages, and so-forth, and add the 
facilities for a additional disk drives, if desired. You can make 
these changes with the GETSYS and PUTSYS programs which you have 
developed, or you can refer to the following section, which outlines 
CP/M facilities which will aid you in the regeneration process. 

You now have a good copy of the customized CP/M system. Note that 
although the CBIOS portion of CP/M which you have developed belongs to 
you, the modified version of CP/M which you have created can be copied 
for your use only (again, read your Licensing Agreement) , and cannot 
be legally copied for anyone else's use. 

It should be noted that your system remains file-compatible with all 
other CP/M systems, (assuming media compat iblity , of course) which 
allows transfer of non-proprietary software between users of CP/M. 
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3. SECOND LEVEL SYSTEM GENERATION 



Now that y° u have the CP/M system running, you will want to 
configure CP/M for your memory size. In general, you will first get a 
memory image of CP/M with the "MOVCPM" program (system relocator) and 
place this memory image into a named disk file. The disk file can then 
be loaded, examined, patched, and replaced using the debugger, and 
system generation program. For further details on the operation of 
these programs, see the "Guide to CP/M Features and Facilities" 
manual . 

Your CBIOS and BOOT can be modified using ED, and assembled using 
ASM, producing files called CBIOS. HEX and BOOT. HEX, which contain the 
machine code for CBIOS and BOOT in Intel hex format. 

To get the memory image of CP/M into the TPA configured for the 
desired memory size, give the command: 

MOVCPM xx * 

where "xx" is the memory size in decimal K bytes (e.g. , 32 for 32K) . 
The response will oe: 

CONSTRUCTING xxK CP/M VERS 2.0 
READY FOR "SYSGEN" OR 
"SAVE 34 CPMxx.COM" 



At this point, an image of a CP/M in the TPA configured for the 
requested memory size. The memory image is at location 0900H through 
227FH. (i.e., The BOOT is at 0900H, the CCP is at 980H, the BDOS 
starts at 1180H, and the BIOS is at 1F80H.) Note that the memory 
image has the standard MDS-800 BIOS and BOOT on it. It is now 
necessary to save the memory image in a file so that you can patch 
your CBIOS and CBOOT into it: 

SAVE 3 4 CPMxx.COM 

The memory image created by the "MOVCPM" program is offset by a 
negative bias so that it loads into the free area of the TPA, and thus 
does not interfere with the operation of CP/M in higher memory. This 
memory image can be subsequently loaded under DDT and examined or 
changed in preparation for a new generation of the system. DDT is 
loaded with the memory image by typing: 

DDT CPMxx.COM Load DDT, then read the CPM 

image 

DDT should respond with 

NEXT PC 
2300 0100 

(The DDT prompt) 

You can then use the display and disassembly commands to examine 
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portions of the memory image between 900H and 227FH. Note, however, 
that to find any particular address within the memory image, you must 
apply the negative bias to the CP/M address to find the actual 
address. Track 00, sector 01 is loaded to location 900H (you should 
find the cold start loader at 900H to 97FH) , track 00, sec, jr 02 is 
loaded into 980H (this is the base of the CCP) , and so-forth through 
the entire CP/M system load. In a 20K system, for example, the CCP 
resides at the CP/M address 3400H, but is placed into memory at 980H 
by the SYSGEN program. Thus, the negative bias, denoted by n, 
satisfies 

3400H + n = 980H, or n = 980H - 3400F 

Assuming two's complement arithmetic, n = D580H, which can be checked 
by 

3400H + D580H = 10980H = 0980H ( ignor ing • h igh-o r de r 

overflow) . 

Note that for larger systems, n satisfies 

(3400H+b) + n = 980H, or 
n = 980H - (3400H + b) , or 
n = D580H - b. 

The value of n for common CP/M systems is given below 



memc-y size 


bias b 


negative offset n 


20K 


0000H 


D580H - 


0000H = D580H 


24K 


1000H 


D580H - 


1000H = C580H 


32K 


3000H 


D580H - 


3000H = A580H 


4 0K 


5000H 


D580H - 


5000H = 8580H 


4 8K 


7000H 


D580H - 


7000H = 6580H 


5 6K 


9000H 


D580H - 


9000H = 4580H 


62K 


A800H 


D580H - 


A800H = 2D80H 


6 4K 


B000H 


D580H - 


B000H = 2580H 



Assume, for example, that you want to locate the address x within the 
memory image loaded under DDT in a 20K system. First type 

Hx,n Hexadecimal sum and difference 

and DDT will respond with the value of x+n (sum) and x-n (difference). 
The first number printed by DDT will be the actual memory address in 
the image where the data or code will be found. The input 

H3400,D580 

for example, will produce 980H as the sum, which is where the CCP is 
located in the memory image under DDT. 

Use the L command to disassemble portions the BIOS located at 
(4A00H+b)-n which, when you use the H command, produces an actual 
address of 1F80H. The disassembly command would thus be 
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L1F80 



It is now necessary to patch in your CBOOT and CBIOS routines. The 
BOOT resides at location 0900H in the memory image. If the actual 
load address is "n", then to calculate the bias (m) use the command: 

H900,n Subtract load address from 

target address. 

The second number typed in response to the command is the desired bias 
(m) . For example, if your BOOT executes at 0080H, tne command: 

H900,80 

will reply 

0980 0880 Sum and difference in hex. 

Therefore, the bias "m" would be 0880H. To read-in the BOOT, give the 
command: 

ICBOOT.HEX Input file CBOOT. HEX 

Then: 

Rm Read CBOOT with a bias of 

m (=900H-n) 

You may now examine your CBOOT with: 
L900 

We are now ready to replace the CBIOS. Examine the area at 1F80H 
where the original version of the CBIOS resides. Then type 

ICBIOS.HEX Ready the "hex" file for loading 

assume that your CBIOS is being integrated into a 20K CP/M system, and 
thus is origined at location 4A00H. In order to properly locate the 
CBIOS in the memory image under DDT, we must apply the negative bias n 
for a 20K system when loading the hex file. This is accomplished Dy 
typing 

RD580 Read the file with bias D580H 

Upon completion of the read, re-examine the area where the CBIOS has 
been loaded (use an "L1F80" command) , to ensure that is was loaded 
properly. When you are satisfied that the change has been made, 
return from DDT using a control-C or "G0" command. 

Now use SYSGEN to replace the patched memory image back onto a 
diskette (use a test diskette until you are sure of your patch) , as 
shown in the following interaction 
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SYSGEN Start the SYSGEN program 

SYSGEN VERSION 2.0 Sign-on message from SYSGEN 

SOURCE DRIVE NAME (OR RETURN TO SKIP) 

Respond with a carriage return 
to skip the CP/M read operation 
since the system is already in 
memory . 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) 

Respond with "B" to write the 
new system to the diskette in 
drive B. 

DESTINATION ON B, THEN TYPE RETURN 

Place a scratch diskette in 
drive B, then type return. 



FUNCTION COMPLETE 
DESTINATION DRIVE 



NAME (OR RETURN TO REBOOT) 



Place the scratch diskette in your drive A, and then perform a 
coldstart to bring up the new CP/M system you have configured. 

Test the new CP/M system, and place the Digital Research copyright 
notice on the diskette, as specified in your Licensing Agreement: 

Copyright (c) , 1979 
Digital Research 
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4. SAMPLE GETSYS AND PUTSY3 PROGRAMS 



The following program provides a framework for the GETSYS and 
PUTSYS programs referenced in Section 2. The READSEC and WRITESEC 
subroutines must be inserted by the user to read and write the 
specific sectors. 

GETSYS PROGRAM - READ TRACKS 0 AND 1 TO MEMORY AT 3380H 



REGISTER 




USE 




A 




(SCRATCH REGISTER) 


* 


B 




TRACK COUNT (0, 1) 


; 


C 




SECTOR COUNT (1,2,. ..,26) 


; 


DE 




(SCRATCH REGISTER PAIR) 


; 


HL 




LOAD ADDRESS 


; 


SP 




SET TO STACK ADDRESS 


; 

START: 


LXI 


SP,3380H 


;SET STACK POINTER TO SCRATCH AREA 




LXI 


H, 3380H 


;SET BASE LOAD ADDRESS 




MVI 


B 0 


•START WTTH TRACK 0 


RDTRK: 






; READ NEXT TRACK (INITIALLY 0) 




MVI 


c,i 


; READ STARTING WITH SECTOR 1 


RDSEC: 






; READ NEXT SECTOR 




CALL 


READSEC 


;USER-SUPPLIED SUBROUTINE 




LXI 


D,128 


;MOVE LOAD ADDRESS TO NEXT 1/2 PAGE 




DAD 


D 


;HL = HL + 128 




INR 


C 


; SECTOR = SECTOR + 1 




MOV 


A,C 


; CHECK FOR END OF TRACK 




CPI 


27 






JC 


RDSEC 


; CARRY GENERATED IF SECTOR < 27 


; ARRIVE HERE AT END OF TRACK, MOVE TO NEXT TRACK 




INR 


B 






MOV 


A, B 


;TEST FOR LAST TRACK 




CPI 


2 






JC 


RDTRK 


; CARRY GENERATED IF TRACK < 2 



ARRIVE HERE AT END OF LOAD, HALT FOR NOW 
HLT 

; USER-SUPPLIED SUBROUTINE TO READ THE DISK 
READSEC: 

; ENTER WITH TRACK NUMBER IN REGISTER B, 
SECTOR NUMBER IN REGISTER C, AND 
; ADDRESS TO FILL IN HL 



PUSH 
PUSH 



B 
H 



;SAVE B AND C REGISTERS 
;SAVE HL REGISTERS 



perform disk read at this point, branch to 
label START if an error occurs 



POP 
POP 
RET 



H 
B 



; RECOVER HL 

; RECOVER B AND C REGISTERS 
; BACK TO MAIN PROGRAM 



END START 
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Note that this program is assembled and listed in Appendix C for 
reference purposes, with an assumed origin of 100H. The hexadecimal 
operation codes which are listed on the left may be useful if the 
program has to be entered through your machine's front panel switches. 

The PUTSYS program can be constructed from GETSYS by changing only 
a few operations in the GETSYS program given above, as shown in 
Appendix D. The register pair HL become the dump address (next 
address to write) , and operations upon these registers do not change 
within the program. The READSEC subroutine is replaced by a WRITESEC 
subroutine which performs the opposite function: data from address HL 
is written to the track given by register B and sector given by 
register C. It is often useful to combine GETS¥S and PUTSYS into a 
single program during the test and development phase, as shown in the 
Appendix . 
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5. DISKETTE ORGANIZATION 

The sector allocation for the standard distribution version of 
CP/M is given here for reference purposes. The first sector (see 
table on the following page) contains an optional software boot 
section. Disk controllers are often set up to bring track 0, sector 1 
into memory at a specific location (often location 0000H) . The 
program in this sector, called BOOT, has the responsibility of 
bringing the remaining sectors into memory starting at location 
3400H+b. If your controller does not have a built-in sector load, you 
can ignore the program in track 0, sector 1, and begin the load from 
track 0 sector 2 to location 3400H+b. 

As an example, the Intel MDS-800 hardware cold start loader brings 
track 0, sector 1 into absolute address 3000H. Upon loading this 
sector, control transfers to location 3000H, where the bootstrap 
operation commences by loading the remainder of tracks 0, and all of 
track 1 into memory, starting at 3400H+b. The user should note that 
this bootstrap loader is of little use in a non-MDS environment, 
although it is useful to examine it since some of the boot actions 
will have to be duplicated in your cold start loader. 
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T r a ck & 

-LLC* ^- J\ IT 


Spctorl 

kJ C v U w l. 7T 




Memorv Address 


CP/M Module name 


00 


01 




(boot address) 


Cold Start Loader 


00 


02 


00 


3400H+b 


CCP 


il 


03 


II 


3480H+b 


•l 


• » 


04 


01 


3500H+b 


if 


il 


05 


■ I 


3580H+D 


ii 


II 


06 


02 


3600H+O 


•• 


■ i 


07 


t< 


3680H+b 


ii 


n 


08 


03 


3700H+b 


ii 


il 


09 


ii 


3780H+b 


• i 


• i 


10 


04 


3800H+b 


■ i 


il 


11 


■1 


3880H+b 


• • 


«' 


12 


05 


3900H+b 


»• 


II 


13 


■< 


3980H+b 


ii 


il 


14 


06 


3A00H+b 


• i 


M 


15 


n 


3A80H+b 


■ i 


• * 


16 


07 


3B00H+b 


ii 


00 


17 


ii 


3B80H+b 


CCP 


00 


18 


08 


3C00H+b 


BDOS 


■ 1 


19 




3C80H+b 


■i 


II 


20 


09 


3D00H+b 


• • 


• 1 


21 


ti 


3D80H+b 


Ii 


• ■ 


22 


10 


3E00H+b 


it 


■I 


23 


ii 


3E80H+b 


>> 


• 1 


24 


11 


3F00H+b 




■ 1 


25 


ii 


3F80H+b 


ii 


■ 1 


26 


12 


4000H+D 


H 


01 


01 


II 


4080H+b 


Ii 


II 


02 


13 


4l00H+b 


•l 


II 


03 


ii 


4180H+b 


*i 




04 


14 


4200H+b 


M 




05 


ii 


4280H+b 


M 


■ * 


06 


15 


4300H+b 


II 


il 


07 


■ i 


4380H+b 


II 




08 


16 


4400H+b 


M 
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II 
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11 
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ii 


12 
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II 
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14 
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t* 
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ii 
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II 


H 


17 


■< 
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18 


21 
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II 


01 


19 


ii 
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BDOS 


01 


20 


22 


4A00H+b 


BIOS 


ii 


21 


■i 
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il 


23 


23 


4B00H+b 


M 


■I 


24 


■I 
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II 


■I 


25 


24 


4C00H+b 


II 
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26 


il 


4C80H+b 


BIOS 


02-76 


01-26 






(directory and data) 
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6. THE BIOS ENTRY POINTS 



The entry points into the BIOS from the cold start loader and BDOS 
are detailed below. Entry to the BIOS is through a "jump vector" 
located at 4A00H+b, as shown below (see Appendices B and C, as well). 
The jump vector is a sequence of 17 jump instructions which send 
program control to the individual BIOS subroutines. The BIOS 
subroutines may be empty for certain functions (i.e. , they may contain 
a single RET operation) during regeneration of CP/M, but the entries 
must be present in the jump vector. 

The jump vector at 4A00H+b takes the form shown below, where the 
individual jump addresses are given to the left: 



4A00H+b 


J MP 


BOOT 


ARRIVE HERE FROM COLD START LOAD 


4A03H+D 


J MP 


WBOOT 


ARRIVE HERE FOR WARM START 


4A06H+b 


JMP 


CONST 


CHECK FOR CONSOLE CHAR READY 


4A09H+b 


J MP 


CONIN ; 


READ CONSOLE CHARACTER IN 


4A0CH+b 


JMP 


CONOUT 


WRITE CONSOLE CHARACTER OUT 


4 A0 FH+b 


JMP 


LIST 


WRITE LISTING CHARACTER OUT 


4Al2H+b 


JMP 


PUNCH 


WRITE CHARACTER TO PUNCH DEVICE 


4Al5H+b 


JMP 


READER 


READ READER DEVICE 


4Al8H+b 


JMP 


HOME 


• MOVE TO TRACK 00 ON SELECTED DISK 


4 AlBH+b 


JMP 


SELDSK 


SELECT DISK DRIVE 


4A1EH+D 


JMP 


SETTRK 


SET TRACK NUMBER 


4A2lH+b 


JMP 


SETSEC 


SET SECTOR NUMBER 


4A2 4H+D 


JMP 


SETDMA ; 


SET DMA ADDRESS 


4A27H+b 


JMP 


READ , 


■ READ SELECTED SECTOR 


4A2AH+D 


JMP 


WRITE 


WRITE SELECTED SECTOR 


4A2DH+b 


JMP 


LISTST 


RETURN LIST STATUS 


4A30H+b 


JMP 


SECTRAN 


■ SECTOR TRANSLATE SUBROUTINE 



Each jump address corresponds to a particular subroutine which 
performs tne specific function, as outlined below. There are three 
major divisions in the jump table: the system ( re) initialization 
whicn results from calls on BOOT and WBOOT, simple character I/O 
performed by calls on CONST, CONIN, CONOUT, LIST, PUNCH, READER, and 
LISTST, and diskette I/O performed by calls on HOME, SELDSK, SETTRK, 
SETSEC, SETDMA, READ, WRITE, and SECTRAN. 

All simple character I/O operations are assumed to be performed in 
ASCII, upper and lower case, with high order (parity bit) set to zero. 
An end-of-file condition for an input device is given by an ASCII 
control-z (1AH) . Peripheral devices are seen by CP/M as "logical" 
devices, and are assigned to physical devices within the BIOS. 

In order to operate, the BDOS needs only the CONST, CONIN, and 
CONOUT subroutines (LIST, PUNCH, and READER may be used by PIP, but 
not the BDOS). Further, the LISTST entry is used currently only by 
DESPOOL, and thus, the initial version of CBIOS may have empty 
subroutines for the remaining ASCII devices. 
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The characteristics of each device are 



CONSOLE 



LIST 



PUNCH 



READER 



The principal interactive console which communicates 
with" the operator, accessed through CONST, CONIN, and 
CONOUT. Typically, the CONSOLE is a device such as a 
CRT or Teletype. 

The principal listing device, if it exists on your 
system, which is usually a hard-copy device, such as a 
printer or Teletype. 

The principal tape punching device, if it exists, which 
is normally a high-speed paper tape punch or Teletype. 



The principal tape reading device, 
optical reader or Teletype. 



such as a simple 



Note that a single peripheral can be assigned as 
the LIST, PUNCH, and READER device simultaneously. If 
no peripheral device is assigned as the LIST, PUNCH, or 
READER device, the CBIOS created by the user may give 
an appropriate error message so that the system does 
not "hang" if the device is accessed by PIP or some 
other user program. Alternately, the PUNCH and LIST 
routines can just simply return, and the READER routine 
can return with a 1 AH (ctl-Z) in reg A to indicate 
immediate end-of-file. 

For added flexibility, the user can optionally 
implement the "IOBYTE" function wnich allows 
reassignment of physical and logical devices. The 
IOBYTE function creates a mapping of logical to 
physical devices which can be altered during CP/M 
processing (see the STAT command) . The definition of 
the IOBYTE function corresponds to the Intel standard 
as follows: a single location in memory (currently 
location 0003H) is maintained, called IOBYTE, which 
defines the logical to physical device mapping wnich is 
in effect at a particular time. The mapping is 
performed by splitting the IOBYTE into four distinct 
fields of two bits each, called the CONSOLE, READER, 
PUNCH, and LIST fields, as shown below: 

most significant least significant 

IOBYTE AT 0003H I LIST | PUNCH I READER | CONSOLE I 

bits 6,7 bits 4,5 bits 2,3 bits 0,1 

The value in each field can be in the range 0-3, 
defining the assigned source or destination of each 
logical device. The values which can be assigned to 
each field are given below 
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CONSOLE field (bits 0,1) 

0 - console is assigned to tne console printer device (TTY : ) 

1 - console is assigned to the CRT device (CRT:) 

2 - batch mode: use the READER as the CONSOLE input, 

and the LIST device as the CONSOLE output (BAT:) 

3 - user defined console device (UCl:) 

READER field (bits 2,3) 

0 - READER is the Teletype device (TTY:) 

1 - READER is the high-speed reader device (RDR : ) 

2 - user defined reader # 1 (URl:) 

3 - user defined reader # 2 (UR2:) 

PUNCH field (bits 4,5) 

0 - PUNCH is the Teletype device (TTY:) 

1 - PUNCH is the high speed punch device (PUN:) 

2 - user defined punch # 1 (UPl:) 

3 - user defined punch # 2 (UP2 : ) 

LIST field (bits 6,7) 

0 - LIST is the Teletype device (TTY:) 

1 - LIST is the CRT device (CRT:) 

2 - LIST is the line printer device (LPT:) 

3 - user defined list device (ULl:) 

Note again that the implementation of the IOBYTE is 
optional, and affects only the organization of your 
CBIOS. No CP/M systems use the IOBYTE (although they 
tolerate the existence of the IOBYTE at location 
0003H) , except for PIP which allows access to the 
physical devices, and STAT which allows 
logical-physical assignments to be made and/or 
displayed (for more information, see the "CP/M Features 
and Facilities Guide"). In any case, the IOBYTE 
implementation should be omitted until your basic CBIOS 
is fully implemented and tested; then add the IOBYTE to 
increase your facilities. 

Disk I/O is always performed through a sequence of 
calls on the various disk access subroutines which set 
up the disk number to access, the track and sector on a 
particular disk, and the direct memory access (DMA) 
address involved in the I/O operation. After all these 
parameters have been set up, a call is made to the READ 
or WRITE function to perform the actual I/O operation. 
Note that there is often a single call to SELDSK to 
select a disk drive, followed by a number of read or 
write operations to the selected disk before selecting 
another drive for subsequent operations. Similarly, 
there may be a single call to set the DMA address, 
followed by several calls which read or write from the 
selected DMA address before the DMA address is changed. 
The track and sector subroutines are always called 
before the READ or WRITE operations are performed. 
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Note that the READ and WRITE routines should 
perform several retries (10 is standard) before 
reporting the error condition to the BDOS. If the 
error condition is returned to the BDOS, it will report 
the error to the user. The HOME subroutine may or may 
not actually perform the track 00 seek, depending upon 
your controller characteristics; the important point is 
that track 00 has been selected for the next operation, 
and is often treated in exactly the same manner as 
SETTRK with a parameter of 00. 

The exact responsibilites of each entry point 
subroutine are given below: 

BOOT The BOOT entry point gets control from the cold start 

loader and is responsible for basic system 
initialization, including sending a signon message 
(which can be omitted in the first version) . If the 
IOBYTE function is implemented, it must be set at this 
point. The various system parameters which are set by 
the WBOOT entry point must be initialized, and control 
is transferred to the CCP at 3400H+b for further 
processing. Note that reg C must be set to zero to 
select drive A. 

WBOOT The WBOOT entry point gets control when a warm start 

occurs. A warm start is performed whenever a user 
program branches to location 0000H, or when the CPU is 
reset from the front panel. The CP/M system must be 
loaded from the first two tracks of drive A up to, but 
not including, the BIOS (or CBIOS, if you have 
completed your patch) . System parameters must be ini- 
tialized as shown below: 

location 0,1,2 set to JMP WBOOT for warm starts 

(0000H: JMP 4A03H+b) 

location 3 set initial value of IOBYTE, if 

implemented in your CBIOS 

location 5,6,7 set to JMP BDOS, which is the 

primary entry point to CP/M for 
transient programs. (0005H: JMP 
3C06H+b) 

(see Section 9 for complete details of page zero use) 
Upon completion of the initialization, the WBOOT 
program must branch to the CCP at 3400H+b to (re) start 
the system. Upon entry to the CCP, register C is set 
to the drive to select after system initialization. 

CONST Sample the status of the currently assigned console 

device and return 0FFH in register A if a character is 
ready to read, and 00H in register A if no console 
characters are ready. 

CONIN Read the next console character into register A, and 
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set the parity bit (high order bit) to zero. If no 
console character is ready, wait until a character is 
typed before returning. 

CONOUT Send the character from register C to the console 

output device. The character is in ASCII, with high 
order parity bit set to zero. You may want to include 
a time-out on a line feed or carriage return, if your 
console device requires some time interval at the end 
of the line (such as a TI Silent 700 terminal) . You 
can, if you wish, filter out control characters which 
cause your console device to react in a strange way (a 
control-z causes the Lear Seigler terminal to clear 
the screen, for example) . 

LIST Send the character from register C to the currently 

assigned listing device. The character is in ASCII 
with zero parity. 

PUNCH Send the cnaracter from register C to the currently 

assigned punch device. The character is in ASCII with 
zero parity. 

Read the next character from the currently assigned 
reader device into register A with zero parity (high 
order bit must be zero) , an end of file condition is 
reported by returning an ASCII control-z (1AH) . 

Return the disk head of the currently selected disk 
(initially disk A) to the track 00 position. If your 
controller allows access to the track 0 flag from the 
drive, step the head until the track 0 flag is 
detected. If your controller does not support this 
feature, you can translate the HOME call into a call 
on SETTRK witn a parameter of 0. 

SELDSK Select the disk drive given by register C for further 

operations, where register C contains 0 for drive A, 1 
for drive B, and so-forth up to 15 for drive P (the 
standard CP/M distribution version supports four 
drives) . On each disk select, SELDSK must return in 
HL the base address of a 16-byte area, called the Disk 
Parameter Header, described in the Section 10. For 
standard floppy disk drives, the contents of the 
header and associated tables does not change, and thus 
the program segment included in the sample CBIOS 
performs this operation automatically. If there is an 
attempt to select a non-existent drive, SELDSK returns 
HL=0000H as an error indicator. Although SELDSK must 
return the header address on each call, it is 
advisable to postpone the actual physical disk select 
operation until an I/O function (seek, read or write) 
is actually performed, since disk selects often occur 
without utimately performing any disk I/O, and many 
controllers will unload the head of the current disk 
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before selecting the new drive. This would cause an 
excessive amount of noise and disk wear. 

SETTRK Register BC contains the track number for subsequent 

disk accesses on the currently selected drive. You 
can choose to seek the selected track at this time, or 
delay the seek until the next read or write actually 
occurs. Register BC can take on values in the range 
0-76 corresponding to valid track numbers for standard 
floppy disk drives, and 0-65535 for non-standard disk 
subsystems . 

SETSEC Register BC contains the sector number (1 through 26) 

for subsequent disk accesses on the currently selected 
drive. You can choose to send this information to the 
controller at this point, or instead delay sector 
selection until a read or write operation occurs. 

SETDMA Register 3C contains the DMA (disk memory access) 

address for subsequent read or write operations. For 
example, if B = 00H and C = 80H when SETDMA is called, 
then all subsequent read operations read their data 
into 80H through 0FFH, and all subsequent write 
operations get their data from 80H through 0FFH, until 
the next call to SETDMA occurs. The initial DMA 
address is assumed to be 80H. Note that the 
controller need not actually support direct memory 
access. If, for example, all data is received and 
sent through I/O ports, the CBIOS which you construct 
will use the 128 byte area starting at the selected 
DMA address for the memory buffer during the following 
read or write operations. 

READ Assuming the drive has been selected, the track has 

been set, the sector has been set, and the DMA address 
has been specified, the READ subroutine attempts to 
read one sector based upon these parameters, and 
returns the following error codes in register A: 

0 no errors occurred 

1 non-recoverable error condition occurred 

Currently, CP/M responds only to a zero or non-zero 
value as tne return code. That is, if the value in 
register A is 0 then CP/M assumes that the disk 
operation completed properly. If an error occurs, 
however, the CBIOS should attempt at least 10 retries 
to see if the error is recoverable. When an error is 
reported the BDOS will print the message "BDOS ERR ON 
x: BAD SECTOR". The operator then has the option of 
typing <cr> to ignore the error, or ctl-C to abort. 



WRITE Write the data from the currently selected DMA address 

to the currently selected drive, track, and sector. 
The data should be marked as "non deleted data" to 
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maintain compatibility with other CP/M systems. The 
error codes given in the READ command are returned in 
register A, with error recovery attempts as described 
above . 

LISTST Return the ready status of the list device. Used by 

the DESPOOL program to improve console response during 
its operation. The value 00 is returned in A if the 
list device is not ready to accept a character, and 
0FFH if a character can be sent to the printer. Note 
that a 00 value always suffices. 

SECTRAN Performs sector logical to physical sector translation 

in order to improve the overall response of CP/M. 
Standard CP/M systems are shipped with a "skew factor" 
of 6, where six physical sectors are skipped between 
each logical read operation. This skew factor allows 
enough time between sectors for most programs to load 
their buffers without missing the next sector. In 
particular computer systems which use fast processors, 
memory, and disk subsystems, the skew factor may be 
changed to improve overall response. Note, however, 
that you should maintain a single density IBM 
compatible version of CP/M for information transfer 
into and out of your computer system, using a skew 
factor of 6. In general, SECTRAN receives a logical 
sector number in BC, and a translate table address in 
DE. The sector number is used as an index into the 
translate table, witn the resulting pnysical sector 
number in HL. For standard systems, the tables and 
indexing code is provided in the CBIOS and need not be 
changed . 
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7. A SAMPLE BIOS 



The program shown in Appendix C can serve as a basis for your 
first BIOS. The simplest functions are assumed in this BIOS, so that 
you can enter it through the front panel, if absolutely necessary. 
Note that the user must alter and insert code into the subroutines for 
CONST, CONIN, CONOUT, READ, WRITE, and WAITIO subroutines. Storage is 
reserved for user-supplied code in these regions. The scratch area 
reserved in page zero (see Section 9) for the BIOS is used in this 
program, so that it could be implemented in ROM, if desired. 

Once operational, this skeletal version can be enhanced to print 
the initial sign-on message and perform better error recovery. The 
subroutines for LIST, PUNCH, and READER can be filled-out, and the 
IOBYTE function can be implemented. 
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8. A SAMPLE COLD START LOADER 

The program shown in Appendix D can serve as a basis for your cold 
start loader. The disk read function must oe supplied by the user, 
and the program must be loaded somehow starting at location 0000. 
Note that space is reserved for your patch so that the total amount of 
storage required for the cold start loader is 128 bytes. Eventually, 
you will probably want to get this loader onto the first disk sector 
(track 0, sector 1), and cause your controller to load it into memory 
automatically upon system start-up. Alternatively, you may wish to 
place the cold start loader into ROM, and place it above the CP/M 
system. In this case, it will be necessary to originate the program 
at a higher address, and key-in a jump instruction at system start-up 
which branches to the loader. Subsequent warm starts will not require 
this key-in operation, since tne entry point 'WBOOT' gets control, 
thus bringing the system in from disk automatically. Note also that 
the skeletal cold start loader has minimal error recovery, which may 
be enhanced on later versions. 
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9. RESERVED LOCATIONS IN PAGE ZERO 



Main memory page zero, between locations 00H and 0FFH, contains 
several segments of code and data which are used during CP/M 
processing. The code and data areas are given below for reference 
purposes. 



Locations 
from to 
0000H - 0002H 



Contents 

Contains a jump instruction to the warm start 
entry point at location 4A03H+b. This allows a 
simple programmed restart (JMP 0000H) or manual 
restart from the front panel. 



0003H - 0003H 



Contains the Intel standard IOBYTE , which is 
optionally included in the user's CBIOS, as 
described in Section 6. 



0004H - 0004H 
0005H - 0007H 



0008H - 0027H 
0030H - 0037H 

0 0 38H - 0 0 3AH 



003BH 
0040H 



003FH 
004FH 



Current default drive number (0=A, . . . ,15=P) . 

Contains a jump instruction to the BDOS,and 
serves two purposes: JMP 0005H provides the 
primary entry point to the BDOS, as described in 
the manual "CP/M Interface Guide," and LHLD 
0006H brings the address field of the 
instruction to the HL register pair. This value 
is the lowest address in memory used by CP/M 
(assuming the CCP is being overlayed) . Note 
that the DDT program will change the address 
field to reflect the reduced memory size in 
debug mode. 

(interrupt locations 1 through 5 not used) 

(interrupt location 6, not currently used 
reserved) 

Restart 7 - Contains a jump instruction into tne 
DDT or SID program when running in debug mode 
for programmed breakpoints, but is not otherwise 
used by CP/M. 

(not currently used - reserved) 

16 byte area reserved for scratch by CBIOS, but 
is not used for any purpose in the distribution 
version of CP/M 



0050H - 005BH (not currently used - reserved) 

005CH - 007CH default file control block produced for a 

transient program by the Console Command 
Processor . 



007DH - 007FH 



Optional default random record position 
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0080H - 00FFH default 128 byte disk buffer (also filled with 

the command line when a transient is loaded 
under the CCP) . 



Note that this information is set-up for normal operation under 
the CP/M system, but can be overwritten by a transient program if the 
BDOS facilities are not required by the transient. 

If, for example, a particular program performs only simple I/O and 
must begin execution at location 0, it can be first loaded into the 
TPA , using normal CP/M facilities, with a small memory move program 
which gets control when loaded (the memory move program must get 
control from location 0100H, which is the assumed beginning of all 
transient programs). The move program can then proceed to move the 
entire memory image down to location 0, and pass control to the 
starting address of the memory load. Note that if the BIOS is 
overwritten, or if location 0 (containing the warm start entry point) 
is overwritten, then the programmer must bring the CP/M system back 
into memory with a cold start sequence. 
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10. DISK PARAMETER TABLES 



Tables are included in the BIOS which describe the particular 
characteristics of the disk subsystem used with CP/M. These tables 
can be either hand-coded, as shown in the sample CBIOS in Appendix C, 
or automatically generated using the DISKDEF macro library, as shown 
in Appendix B. The purpose here is to describe the elements of these 
tables. 

In general, each disk drive has an associated (16-byte) disk 
parameter header which both contains information about the disk drive 
and provides a scratchpad area for certain BDOS operations. The 
format of the disk parameter header for each drive is shown below 

Disk Parameter Header 

I XLT | 0000 I 0000 I 0000 IDIRBUFI DPB I CSV I ALV I 

16b 16b 16b 16b 16b 16b 16b 16b 

where each element is a word (16-bit) value. The meaning of each Disk 
Parameter Header (DPH) element is 

XLT Address of the logical to physical translation vector, 

if used for this particular drive, or the value 0000H 
if no sector translation takes place (i.e, the physical 
and logical sector numbers are the same) . Disk drives 
with identical sector skew factors share the same 
translate tables. 

0000 Scratchpad values for use within the BDOS (initial 

value is unimportant) . 

DIRBUF Address of a 128 byte scratchpad area for directory 

operations within BDOS. All DPH ' s address the same 
scratchpad area. 

DPB Address of a disk parameter block for this drive. 

Drives with identical disk characteristics address the 
same disk parameter block. 

CSV Address of a scratchpad area used for software check 

for changed disks. This address is different for each 
DPH. 

ALV Address of a scratchpad area used by the BDOS to keep 

disk storage allocation information. This address is 
different for each DPH. 

Given n disk drives, the DPH 1 s are arranged in a table whose first row 
of 16 bytes corresponds to drive 0, with the last row corresponding to 
drive n-1 . The table thus appears as 
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DPBASE: 



00 IXLT 001 0000 I 0000 I 0000 I DIRBUF I DBP 00|CSV 00|ALV 00 1 



01 IXLT 01| 0 000 


0000 I 0000 


I DIRBUF I DBP 01 


CSV 01 1 ALV 01 1 




(and so- 


forth through) 




n-l|XLTn-li 0000 


0000 I 0000 


I DIRBUF | DBPn-1 


CSVn-1 I ALVn-1 1 



where the label DPBASE defines the base address of the DPH table. 

A responsibility of the SELDSK subroutine is to return the base 
address of the DPH for the selected drive. The following sequence of 
operations returns the table address, with a 0000H returned if the 
selected drive does not exist. 

NDISKS EQU 4 ;NUMBER OF DISK DRIVES 

SELDSK: 

; SELECT DISK GIVEN BY BC 



LXI 


H , 0000H 


; ERROR CODE 


MOV 


A,C 


;DRIVE OK? 


CPI 


NDISKS 


;CY IF SO 


RNC 




; RET IF ERR 


;N0 


ERROR, CONTINUE 


MOV 


L,C 


; LOW (DISK) 


MOV 


H,B 


;HIGH(DISK) 


DAD 


H 


;*2 


DAD 


H 


; *4 


DAD 


H 


;*8 


DAD 


H 


; *16 


LXI 


D, DPBASE 


; FIRST DPH 


DAD 


D 


;DPH (DISK) 


RET 







The translation vectors (XLT 00 through XLTn-1) are located 
elsewhere in the BIOS, and simply correspond one-for-one with the 
logical sector numbers zero through the sector count-1 . The Disk 
Parameter Block (DPB) for each drive is more complex. A particular 
DPB, which is addressed by one or more DPH's, takes the general form 

I SPT iBSHlBLMlEXMl DSM | DRM | AL0 | ALl | CKS I OFF I 

16b 8b 8b 8b 16b 16b 8b 8b 16b 16b 

where each is a byte or word value, as shown by the "8b" or "16b" 
indicator below the field. 

SPT is the total number of sectors per track 

BSH is the data allocation block shift factor, determined 

by the data block allocation size. 
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EXM is the extent mask, determined by the data block 

allocation size and the number of disk blocks. 

DSM determines the total storage capacity of the disk drive 

DRM determines the total number of directory entries which 

can be stored on this drive AL0 ,AL1 determine reserved 
directory blocks. 

CKS is the size of the directory check vector 

OFF is the number of reserved tracks at the beginning of 

the (logical) disk. 

The values of BSH and BLM determine (implicitly) the data allocation 
size BLS, which is not an entry in the disk parameter block. Given 
that the designer has selected a value for BLS, the values of BSH and 
BLM are shown in the table below 



BLS BSH BLM 

1,024 3 7 

2,048 4 15 

4,096 5 31 

8,192 6 63 

16,384 7 127 



where all values are in decimal. The value of EXM depends upon both 
the BLS and whether the DSM value is less than 256 or greater than 
255, as shown in the following table 



BLS 


DSM < 256 


DSM > 255 


1,024 


0 


N/A 


2,048 


1 


0 


4,096 


3 


1 


8,192 


7 


3 


16,384 


15 


7 



The value of DSM is the maximum data block number supported by 
this particular drive, measured in BLS units. The product BLS times 
(DSM+1) is the total number of bytes held by the drive and, of course, 
must be within the capacity of the physical disk, not counting the 
reserved operating system tracks. 

The DRM entry is the one less than the total number of directory 
entries, which can take on a 16-bit value. The values of AL0 and ALl , 
however, are determined by DRM. The two values AL0 and ALl can 
together be considered a string of 16-bits, as shown below. 
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ALB I ALl I 



I I I I I I I I I I I I I I I I I 



00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 

where position 00 corresponds to the high order bit of the byte 
labelled AL0 , and 15 corresponds to the low order bit of the byte 
labelled ALl. Each bit position reserves a data block for number of 
directory entries, thus allowing a total of 16 data blocks to be 
assigned for directory entries (bits are assigned starting at 00 and 
filled to the right until position 15). Each directory entry occupies 
32 bytes, resulting in the following table 

BLS Directory Entries 

1,024 32 times # bits 

2,048 64 times # bits 

4,096 128 times # bits 

8,192 256 times # bits 

16,384 512 times # bits 

Thus, if DRM = 127 (128 directory entries), and BLS = 1024, then there 
are 32 directory entries per block, requiring 4 reserved blocks. In 
this case, the 4 high order bits of AL0 are set, resulting in the 
values AL0 = 0F0H and ALl = 00H. 

The CKS value is determined as follows: if the disk drive media 
is removable, then CKS = (DRM+D/4, where DRM is the last directory 
entry number. If the media is fixed, then set CKS = 0 (no directory 
records are checked in this case) . 

Finally, the OFF field determines the number of tracks which are 
skipped at the beginning of the physical disk. This value is 
automatically added whenever SETTRK is called, and can be used as a 
mechanism for skipping reserved operating system tracks, or for 
partitioning a large disk into smaller segmented sections. 

To complete the discussion of the DPB, recall that several DPH ' s 
can address the same DPB if their drive characteristics are identical. 
Further, the DPB can be dynamically changed when a new drive is 
addressed by simply changing the pointer in the DPH since the BDOS 
copies the DPB values to a local area whenever the SELDSK function is 
invoked. 

Returning back to the DPH for a particular drive, note that the 
two address values CSV and ALV remain. Both addresses reference an 
area of uninitialized memory following the BIOS. The areas must be 
unique for each drive, and the size of each area is determined by the 
values in the DPB. 

The size of the area addressed by CSV is CKS bytes, which is 
sufficient to hold the directory check information for this particular 
drive. If CKS = (DRM+D/4, then you must reserve (DRM+D/4 bytes for 
directory check use. If CKS = 0, then no storage is reserved. 
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The size of the area addressed by ALV is determined by the 
maximum number of data blocks allowed for this particular disk, and is 
computed as (DSM/8)+l. 

The CBIOS shown in Appendix C demonstrates an instance of these 

tables for standard 8" single density drives. It may be useful to 

examine this program, and compare the tabular values with the 
definitions given above. 
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11. THE DISKDEF MACRO LIBRARY. 



A macro library is shown in Appendix F, called DISKDEF, which 
greatly simplifies the table construction process. You must have 
access to the MAC macro assembler, of course, to use the DISKDEF 
facility, while the macro library is included with all CP/M 2.0 
distribution disks. 

A BIOS disk definition consists of the following sequence of 
macro statements: 



MACLIB 


DISKDEF 


• ••••• 

DISKS 


n 


DISKDEF 


0 , . . . 


DISKDEF 


1 | | ■ ■ 


DISKDEF 


n-1 


ENDEF 





where the MACLIB statement loads the DISKDEF. LIB file (on the same 
disk as your BIOS) into MAC's internal tables. The DISKS macro call 
follows, which specifies the number of drives to be configured with 
your system, where n is an integer in the range 1 to 16. A series of 
DISKDEF macro calls then follow which define the characteristics of 
each logical disk, 0 through n-1 (corresponding to logical drives A 
through P) . Note that the DISKS and DISKDEF macros generate the 
in-line fixed data tables described in the previous section, and thus 
must be placed in a non-executable portion of your BIOS, typically 
directly following the BIOS jump vector. 

The remaining portion of your BIOS is defined following the 
DISKDEF macros, with the ENDEF macro call immediately preceding the 
END statement. The ENDEF (End of Diskdef) macro generates the 
necessary uninitialized RAM areas which are located in memory above 
your BIOS. 

The form of the DISKDEF macro call is 

DISKDEF dn,fsc,lsc, [skf] ,bls,dks,dir ,cks,ofs, [0] 

where 

dn is the logical disk number, 0 to n-1 

fsc is the first physical sector number (0 or 1) 

lsc is the last sector number 

skf is the optional sector skew factor 

bis is the data allocation block size 

dir is the number of directory entries 

cks is the number of "checked" directory entries 

ofs is the track offset to logical track 00 

[0] is an optional 1.4 compatibility flag 

The value "dn" is the drive number being defined with this DISKDEF 
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macro invocation. The "fsc" parameter accounts for differing sector 
numbering systems, and is usually 0 or 1. The "lsc" is the last 
numbered sector on a track. When present, the "skf" parameter defines 
the sector skew factor which is used to create a sector translation 
table according to the skew. If the number of sectors is less than 
256, a single-byte table is created, otherwise each translation table 
element occupies two bytes. No translation table is created if the 
skf parameter is omitted (or equal to 0) . The "bis" parameter 
specifies the number of bytes allocated to each data block, and takes 
on the values 1024, 2048, 4096, 8192, or 16384. Generally, 
performance increases with larger data block sizes since there are 
fewer directory references and logically connected data records are 
physically close on the disk. Further, each directory entry addresses 
more data and the BIOS-resident ram space is reduced. The "dks" 
specifies the total disk size in "bis" units. That is, if the bis = 
2048 and dks = 1000, then the total disk capacity is 2,048,000 bytes. 
If dks is greater than 255, then the block size parameter bis must be 
greater than 1024. The value of "dir" is the total number of 
directory entries which may exceed 255, if desired. The "cks" 
parameter determines the number of directory items to check on each 
directory scan, and is used internally to detect changed disks during 
system operation, where an intervening cold or warm start has not 
occurred (when this situation is detected, CP/M automatically marks 
the disk read/only so that data is not subsequently destroyed) . As 
stated in the previous section, the value of cks - dir when the media 
is easily changed, as is the case with a floppy disk subsystem. If 
the disk is permanently mounted, then the value of cks is typically 0, 
since the probability of changing disks without a restart is quite 
low. The "ofs" value determines the number of tracks to skip when 
this particular drive is addressed, which can be used to reserve 
additional operating system space or to simulate several logical 
drives on a single large capacity physical drive. Finally, the [0] 
parameter is included when file compatibility is required with 
versions of 1.4 which have been modified for higher density disks. 
This parameter ensures that only 16K is allocated for each directory 
record, as was the case for previous versions. Normally, this 
parameter is not included. 

For convenience and economy of table space, the special form 

DISKDEF i,j 

gives disk i the same characteristics as a previously defined drive j. 
A standard four-drive single density system, which is compatible with 
version 1.4, is defined using the following macro invocations: 
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DISKS 4 

DISKDEF 0,1, 26, 6 , 10 24 ,243, 64,64, 2 

DISKDEF 1,0 

DISKDEF 2,0 

DISKDEF 3,0 

• • • • 

ENDEF 



with all disks having the same parameter values of 26 sectors per 
track (numbered 1 through 26) , with 6 sectors skipped between each 
access, 1024 bytes per data block, 243 data blocks for a total of 243k 
byte disk capacity, 64 checked directory entries, and two operating 
system tracks. 

The DISKS macro generates n Disk Parameter Headers (DPH's), 
starting at the DPH table address DPBASE generated by the macro. Each 
disk header block contains sixteen bytes, as described above, and 
correspond one-for-one to each of the defined drives. In the four 
drive standard system, for example, the DISKS macro generates a table 
of the form: 



DPBASE 


EQU 


$ 


DPE0 : 


DW 


XLT0 


DPE1 : 


DW 


XLT0 


DPE2: 


DW 


XLT0 


DPE3 : 


DW 


XLT0 



,0000H,0000H,0000H, 
, 0000H , 00 00H , 0 000H , 
,0000H,0000H,0000H, 
,0000H,0000H,0000H, 



DIRBUF ,DPB0 , CSV0 ,ALV0 
DIRBUF ,DPB0 ,CSV1 , ALV1 
DIRBUF, DPB0 ,CSV2,ALV2 
DIRBUF ,DPB0 ,CSV3 ,ALV3 



where the DPH laoels are included for reference purposes to show the 
beginning table addresses for each drive 0 through 3. The values 
contained within the disk parameter header are described in detail in 
the previous section. The check and allocation vector addresses are 
generated by the ENDEF macro in the ram area following the BIOS code 
and tables. 

Note that if the "skf" (skew factor) parameter is omitted (or 
egual to 0) , the translation table is omitted, and a 0000H value is 
inserted in the XLT position of the disk parameter header for the 
disk. In a subsequent call to perform the logical to physical 
translation, SECTRAN receives a translation table address of DE 
0000H, and simply returns the original logical sector from BC in the 
HL register pair. A translate table is constructed when the skf 
parameter is present, and the (non-zero) table address is placed into 
the corresponding DPH's. The table shown below, for example, is 
constructed when the standard skew factor skf = 6 is specified in the 
DISKDEF macro call: 



XLT0: DB 1,7,13,19,25,5,11,17,23,3,9,15,21 
DB 2,8,14,20,26,6,12,18,24,4,10,16,22 

Following the ENDEF macro call, a number of uninitialized data 
areas are defined. These data areas need not be a part of the BIOS 
which is loaded upon cold start, but must be available between the 
BIOS and the end of memory. The size of the uninitialized RAM area is 
determined by EQU statements generated by the ENDEF macro. For a 
standard four-drive system, the ENDEF macro might produce 
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4DB0 
013C 



4C72 



BEG DAT EQU $ 
(data areas) 
ENDDAT EQU $ 



DATSIZ EQU $ -BEG DAT 



which indicates that uninitialized RAM begins at location 4C72H, ends 
at 4DB0H-1, and occupies 013CH bytes. You must ensure that these 
addresses are free for use after the system is loaded. 

After modification, you can use the STAT program to check your 
drive characteristics, since STAT uses the disk parameter block to 
decode the drive information. The STAT command form 



decodes the disk parameter block for drive d (d=A, . . . ,P) and displays 
the values shown below: 



r: 128 Byte Record Capacity 

k: Kilobyte Drive Capacity 

d: 32 Byte Directory Entries 

c: Checked Directory Entries 

e: Records/ Extent 

b: Records/ Block 

s: Sectors/ Track 

t: Reserved Tracks 



Three examples of DISKDEF macro invocations are shown below with 
corresponding STAT parameter values (the last produces a full 
8-megabyte system) . 



DISKDEF 0,1,58, ,2048,256,128,128,2 
r=4096, k=512, d=128, c=128, e=256, b=16, s=58, t=2 

DISKDEF 0,1, 58,, 2048, 1024, 300, 0,2 
r=16384, k=2048, d=300, c=0 , e=128, b=16, s = 58, t=2 

DISKDEF 0,1, 58,, 16384, 512, 128, 128, 2 
r=65536, k=8192, d=128, c=128, e=1024, b=128, s=58, t=2 



STAT d : DSK : 
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12. SECTOR BLOCKING AND DEBLOCKING. 



Upon each call to the BIOS WRITE entry point, the CP/M BDOS 
includes information which allows effective sector blocking and 
deblocking where the host disk subsystem has a sector size which is a 
multiple of the basic 128-byte unit. The purpose here is to present a 
general-purpose algorithm which can be included within your BIOS which 
uses the BDOS information to perform the operations automatically. 

Upon each call to WRITE, the BDOS provides the following 
information in register C: 



0 = normal sector write 

1 = write to directory sector 

2 = write to the first sector 

of a new data block 



Condition 0 occurs whenever the next write operation is into a 
previously written area, such as a random mode record update, when the 
write is to other than the first sector of an unallocated block, or 
when the write is not into the directory area. Condition 1 occurs 
when a write into the directory area is performed. Condition 2 occurs 
when the first record (only) of a newly allocated data block is 
written. In most cases, application programs read or write multiple 
128 byte sectors in sequence, and thus there is little overhead 
involved in either operation when blocking and deblocking records 
since pre-read operations can be avoided when writing records. 

Appendix G lists the blocking and deblocking algorithms in skeletal 
form (this file is included on your CP/M disk). Generally, the 
algorithms map all CP/M sector read operations onto the host disk 
through an intermediate buffer which is the size of the host disk 
sector. Throughout the program, values and variables which relate to 
the CP/M sector involved in a seek operation are prefixed by "sek," 
while those related to the host disk system are prefixed by "hst." 
The equate statements beginning on line 29 of Appendix G define the 
mapping between CP/M and the host system, and must be changed if other 
than the sample host system is involved. 

The entry points BOOT and WBOOT must contain the initialization 
code starting on line 57, while the SELDSK entry point must be 
augmented by the code starting on line 65. Note that although the 
SELDSK entry point computes and returns the Disk Parameter Header 
address, it does not physically selected the host disk' at this point 
(it is selected later at READHST or WRITEHST) . Further, SETTRK, 
SETTRK, and SETDMA simply store the values, but do not take any other 
action at this point. SECTRAN performs a trivial trivial function of 
returning the physical sector number. 

The principal entry points are READ and WRITE, starting on lines 
110 and 125, respectively. These subroutines take the place of your 
previous READ and WRITE operations. 

The actual physical read or write takes place at either WRITEHST 
or READHST, where all values have been prepared: hstdsk is the host 
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disk number, hsttrk is the host track number, and hstsec is the host 
sector number (which may require translation to a physical sector 
number) . You must insert code at this point which performs the full 
host sector read or write into, or out of, the buffer at hstbuf of 
length hstsiz. All other mapping functions are performed by the 
algorithms. 

This particular algorithm was tested using an 80 megabyte hard 
disk unit which was originally configured for 128 byte sectors, 
producing approximately 35 megabytes of formatted storage. When 
configured for 512 byte host sectors, usable storage increased to 57 
megabytes, with a corresponding 400% improvement in overall response. 
In this situation, there is no apparent overhead involved in 
deblocking sectors, with the advantage that user programs still 
maintain the (less memory consuming) 128-byte sectors. This is 
primarily due, of course, to the information provided by the BDOS 
which eliminates the necessity for pre-read operations to take place. 
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APPENDIX A: THE MDS COLD START LOADER 



; MDS-800 Cold Start Loader for CP/M 2.0 

; Version 2.0 August, 1979 

7 



0 000 




fa Is 6 


equ 


0 




f f f f 

J_ L. i_ i_ 




Irnp 


PCI 11 


not false 


0 0 00 

U X) tj V 


„ 


testi na 

* 


equ 


false 










if 


testing 






b i as 


equ 


03400h 










endi f 












if 


not testing 


0000 




bias 


equ 


0000h 










endif 






0 000 




cpmb 


eou 


bias 


;base of dos load 


0 fid fi 


_ 


uu uo 




806h+bias ;entry to dos for calls 






uuuoc 




1880h+bias ;end of dos load 






Hn n ¥■ 


0/"T 1 1 

CVJ u 


1600h+bias ;cold start entry point 


1603 


= 


rboot 


equ 


boot+3 


;warm start entry point 


j kj lu «u 






ul y 


3000h 


; loaded here by hardware 


lOOtf 




J 

UU vol 




bdose- 


cpmb 


0002 

U 1J XJ &i 




n t" rk <^ 

11 L L l\ O 




2 


;tracks to read 


0031 


_ 


bdos <5 


eq u 


bdosl/128 ;# sectors in bdos 


0019 


= 


bdos0 


equ 


25 


;# on track 0 


0018 


= 


bdosl 


equ 


bdoss- 


bdos0 ;# on track 1 


f 800 


_ 


• 

mon8 0 


ecju 


0f800h 


; intel monitor base 


f f0f 


_ 


rmon8 0 


equ 


0f f0fh 


;restart location for mon80 


0078 





base 


equ 


078h 


;'base' used by controller 


0079 







equ 


base+1 


; result type 


007b 





r by t e 


equ 


base+3 


; result byte 


007f 


= 


reset 
• 


equ 


base+7 


; reset controller 


0 0 78 








base 


;disk status port 


0079 





i 1 ow 


PCI U 


base+1 


;low iopb address 


007a 


_ 


i h iah 




base+2 


;high iopb address 


00f f 





bsw 


eq u 


0f fh 


;boot switch 


0003 

V XJ V J 




L CvCll 


pn n 

V- '-J LI 


3h 


;recalibrate selected drive 


0 0 0 4 




v- £. a A P 
L Ci vJ i_ 




4h 


;disk read function 


0 100 

KJ X ly Kl 




stack 
• 


equ 


100h 


;use end of boot for stack 






r start: 








3000 


310001 




lxi 


sp,stack;in case of call to mon80 






• 


clear 


disk status 


3003 


db79 




in 


r type 




3005 


db7b 




in 


r by te 








• 


check 


if boot 


switch is off 






colds tart : 






3007 


dbf f 




in 


bsw 





5888 8S1?30 fRl c§Wart Switch on? 
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300e d37f 



3010 0602 
3012 214230 



clear the controller 

out reset ;logic cleared 

mvi b,ntrks ;number of tracks to read 

lxi h,iopb0 



start: 



read first/next track into cpmb 



3015 


7d 


mov 


a r l 


3016 


d379 


out 


ilow 


3018 


7c 


mov 


a ,h 


3019 


d37a 


out 


ihigh 


301b 


db7 8 wait0: 


in 


ds tat 


mi 


calb30 


ani 
Dz 


4 

wait0 



3022 db79 
3024 e603 
3026 fe02 



3028 d20030 



check disk status 

in rtype 

ani lib 

cpi 2 



if 
cnc 
endi f 
if 
jnc 
endi f 



testing 

rmon80 ;go to monitor if 11 or 10 
not testing 

rstart ;retry the load 



302b db7b 

302d 17 
302e dc0fff 

3031 If 

3032 e61e 



in rbyte ; i/o complete, check status 

if not ready, then go to mon80 

ral 

cc rmon80 ;not ready bit set 

rar ;restore 

ani 11110b ; over run/addr err/seek/crc 



3034 c20030 



testing 

rmon80 ;go to monitor 



if 
cnz 
endif 

if not testing 

jnz rstart ;retry the load 

endif 



3037 110700 
303a 19 
303b 05 
303c C21530 



303f C30016 



lxi d,iopbl ; length of iopb 

dad d ; addressing next iopb 

dcr b ;count down tracks 

jnz start 



jmp boot, print message, set-up jmps 
jmp boot 

parameter blocks 
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J V) H / 


P. 01 


10pD19 : 


U D 


ft 01 h 

own 


7x0 cw t no u pa a c c 
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at) 


r eadf 


;read function 
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1 Q 




a ij 
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1CJ 


• f r Apt 0i 


3046 


02 




db 


2 


;start with sector 2, trk 


3047 


0000 




dw 


cpmb 


; start at base of bdos 


01 01 01 7 
V) x) V) I 




iopbl 


cvj U 


C; -i ot"i K 01 

y X Up U x) 




~3 01 A Q 
3 10 4 i7 


a oi 


i 

i opbl : 


Q D 


o ion 




■J CI 4 = 


01 A 


a D 


r eadf 




jWID 


1 0 




a u 


Da os j. 


; sectors to reaa on tr acK 




01 1 






1 


; track 1 








a d 


1 


; sector 1 


304e 


800c 




dw 


cpmb+bdos0*128 ;base of second rd 


3050 






end 
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APPENDIX B: THE MDS BASIC I/O SYSTEM (BIOS) 



0014 = 



vers 



4a00 
3400 
3c06 
1600 
002c 
0002 
0004 
0080 
000a 



cpinb 

bdos 

cpml 

nsects 

offset 

cdisk 

buff 

retry 



mds-800 i/o drivers for cp/m 2.0 
(four drive single density version) 

version 2.0 august, 1979 



equ 



20 



;version 2.0 



copyright (c) 1979 
digital research 
box 579, pacific grove 
California, 93950 

org 4a00h ;base of bios in 20k system 

equ 3400h ;base of cpm ccp 

equ 3c06h ;base of bdos in 20k system 

equ $-cpmb ; length (in bytes) of cpm system 

equ cpml/1 28; number of sectors to load 

equ 2 ;number of disk tracks used by cp 

equ 0004h ;address of last logged disk 

equ 0080h ;default buffer address 

equ 10 ;max retries on disk i/o before e 

perform following functions 

boot cold start 

wboot warm start (save i/o byte) 

(boot and wboot are the same for mds) 

const console status 

reg-a = 00 if no character ready 
reg-a = ff if character ready 

conin console character in (result in reg-a) 

conout console character out (char in reg-c) 

list list out (char in reg-c) 

punch punch out (char in reg-c) 

reader paper tape reader in (result to reg-a) 

home move to track 00 

(the following calls set-up the io parameter bloc 
mds, which is used to perform subsequent reads an 
seldsk select disk given by reg-c (0,1,2...) 
settrk set track address (0,...76) for sub r/w 
setsec set sector address (1,...,26) 
setdma set subsequent dma address (initially 80h 

read/write assume previous calls to set i/o parms 
read read track/sector to preset dma address 
write write track/sector from preset dma addres 

jump vector for indiviual routines 



4a00 


c3b34a 


jmp 


boot 


4a03 


c3c34a wboote: 


jmp 


wboot 


4a06 


c3614b 


jmp 


const 


4a09 


c3644b 


jmp 


conin 


4a0c 


c36a4b 


jmp 


conout 
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4a0f c36d4b 






list 




4al2 c3724b 




jmp 


punch 




4al5 c3754b 




jmp 


reader 




4al8 c3784b 




jmp 


home 




4alb c37d4b 




jmp 


seldsk 




4ale c3a74b 




jmp 


settrk 




4a21 c3ac4b 




jmp 


setsec 




4a24 c3bb4b 




jmp 


setdma 




4a27 c3cl4b 




jmp 


read 




Ap\0^\ ^ r* 4 hi 

T u i. Q V- ^ V_ Ci T 




J lu V 


wr i te 




4a2d c3704b 




jmp 


listst ;list status 


4a30 c3bl4b 




jmp 


sectran 






• 


maclib 


diskdef ;load the disk definition library 






disks 


4 ;four disks 


4a33+= 


dpbase 


equ 


$ ;base of 


disk parameter blocks 


4a33+824a00 


dpe0 : 


dw 


xlt0,0000h ; 


translate table 


4a37+000000 


dw 


0000h,0000h ; 


scratch area 


4a3b+6e4c73 




dw 


dirbuf r dpb0 ; 


dir buff,parm block 


4a3f+0d4dee 




dw 


csv0,alv0 ; 


check, alloc vectors 


4a43+824a00 


dpel : 


dw 


xltl,0000h ; 


translate table 


4a47+000000 




dw 


0000h,0000h 


scratch area 


4a4b+6e4c73 




dw 


dirbuf , dpbl 


•dir buff,parm block 


4a4f+3c4dld 




dw 


csvl,alvi i 


check, alloc vectors 


4a53+824a00 


dpe2 : 


dw 


xlt2 ,0000h 


[translate table 


4a57+000000 


dw 


0000h,0000h 


•scratch area 


4a5b+6e4c73 




dw 


dirbuf ,dpb2 


dir buff,parm block 


4a5f+6b4d4c 




dw 


csv2,alv2 


•check, alloc vectors 


4a63+824a00 


dpe3 : 


dw 


xlt3,0000h 


•translate table 


4a67+000000 




dw 


0000h, 0000h 


•scratch area 


4a6b+6e4c73 




dw 


dirbuf ,dpb3 


•dir buff,parm block 


4a6f+9a4d7b 




dw 


csv3 ,alv3 


check, alloc vectors 






d i s kd e f 


0 ,1,26,6,1 024 ,243, 64, 64, of f set 


4a73+= 


dpb0 


equ 


$ 


•disk parm block 


4a73+la00 




dw 


26 


•sec per track 


4a75+03 




db 


3 


•block shift 


4a76+07 




db 


7 


•block mask 


4a77+00 




db 


0 


extnt mask 


4a78+f 200 




dw 


242 


disk size-1 


4a7a+3f00 




dw 


63 


directory max 


4a7c+c0 




db 


192 


alloc0 


4a7d+00 




db 


0 


• *llocl 


4a7e+1000 




dw' 


16 


•check size 


4a80+0200 




dw 


2 


•offset 


4a82+= 


xlt0 


equ 


$ 


•translate table 


4a82+01 




db 


1 




4a83+07 




db 


7 




4a84+0d 




db 


13 




4a85+13 




db 


19 




4a86+19 




db 


25 




4a87+05 




db 


5 




4a88+0b 




db 


11 




4a89+ll 




db 


17 




4a8a+17 




db 


23 




4a8b+03 




db 


3 
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4a8c+09 




db 


9 




4a8d+0f 




db 


15 




4a8e+15 




db 


21 




4a8f+02 




db 


2 




4a90+08 




db 


8 




4a91+0e 




db 


14 




4a92+14 




db 


20 




4a93+la 




db 


26 




4a94+06 




db 


6 




4a95+0c 




db 


12 




4a96+12 




db 


18 




4a97+18 




db 


24 




4a98+04 




db 


4 




4a99+0a 




db 


10 




4a9a+10 




db 


16 




4a9b+16 




db 


22 








d i s kd e f 


1,0 




4a73+= 


dpbl 


equ 


dpb0 


;equivalent parameters 


001f+= 


alsl 


equ 


als0 


; same allocation vector 


0010+= 


cssl 


equ 


css0 


;same checksum vector s 


4a82+= 


xltl 


equ 


xlt0 


;same translate table 






d i s kd e f 


2,0 




4a73+= 


dpb2 


equ 


dpb0 


;equivalent parameters 


001f+= 


als2 


equ 


als0 


;same allocation vector 


0010+= 


css2 


equ 


CSS0 


;same checksum vector s 


4a82+= 


xlt2 


equ 


xlt0 


;same translate table 






diskdef 


3,0 




4a73+= 


dpb3 


equ 


dpb0 


equivalent parameters 


001f+= 


als3 


equ 


als0 


;same allocation vector 


0010+= 


css3 


equ 


CSS0 


;same checksum vector s 


4a82+= 


xlt3 


equ 


xlt0 


;same translate table 






endef occurs 


at end of assembly 









we also assume 


00fd 




revr t 


equ 


0fdh 


00f c 




intc 


equ 


0fch 


00f3 




icon 


equ 


0f3h 


007e 




inte 
• 


equ 


0111$1 






> 
• 


mds 


monitor eq 


f800 




mon80 


equ 


0f800h 


f f0f 




rmon8 0 


equ 


0f f0fh 


f803 




ci 


equ 


0f803h 


f806 




r i 


equ 


0f806h 


f809 




CO 


equ 


0f809h 


f80c 




po 


equ 


0f80ch 


f80f 




lo 


equ 


0f80fh 


f812 




csts 


equ 


0f812h 



end of controller - independent code, the remaini 
are tailored to the particular operating environm 
be altered for any system which differs from the 

the following code assumes the mds monitor exists 
and uses the i/o subroutines within the monitor 

the mds system has four disk drive 
interrupt revert port 
interrupt mask port 
interrupt control port 
lb;enable rst 0 (warm boot) ,rst 7 



mds monitor 

restart mon80 {boot error) 
console character to reg-a 
reader in to reg-a 
console char from c to console o 
punch char from c to punch devic 
list from c to list device 
console status 00/ff to register 
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7 


disk ports and commands 


0078 


= 


base 


equ 


78h 


;base of disk command io ports 


0078 


= 


dstat 


equ 




• <S i q It q 1~ a !■ n <; finoiit^ 


01 171 "7 Q 




r type 


equ 


base+1 


;result type (input) 


007b 


= 


rbyte 

• 


equ 


base+3 


;result byte (input) 


0 0 7 Q 




9 

-L J. \JYt 


per i] 


ba se+1 


•ioob low address foutout) 






i h inh 
• 


CM LI 


haqp+2 


• ioDh hiah address (outDut) 


0004 





r eadf 


equ 


4h 


; read function 


CI 0 PI fi 

y U U U 




wr i t* f 

W J- X I— i_ 


equ 


6h 


;write function 


0003 


= 


recal 


equ 


3h 


;recalibrate drive 


0004 


z 


iordy 


equ 


4h 


; i/o finished mask 


0 0 B\c\ 




c r 


equ 


0dh 


• rr "i Anp r ^ +- 1 1 k n 
/ u a l l i ay c lcuui.ii 


Oi (A (A ^> 




i f 


equ 


0ah 


•llTIP f ppH 
f line i c vu 






1 

signon: 


; signon message : 


xxk cp/m vers y.y 


to J L 


0d0a0a 




db 


cr,lf ,lf 




4a9f 


3230 




db 


'20' 


; sample memory size 


4aal 


6b2043f 


db 


1 k cp/m 


vers ' 


*4 a eld 


322e30 




db 


vers/10+' 0 ' , ' . * ,vers mod 10+'0' 


4 a K0 


0d0a00 




db 


cr,lf ,0 








boot: 


; pr int 


signon message and go to ccp 






■ 


(note: 


mds boot 


initialized iobyte at 0003h) 


4 a M 


310001 




lxi 


sp,buf f+80h 


4aUD 


219c4a 




lxi 


h, signon 


4ab9 


cdd34b 




call 


prmsg 


;print message 


4abc 


af 




xr a 


a 


;clear accumulator 


4abd 


320400 




sta 


cdisk 


;set initially to disk a 


4ac0 


c30f 4b 




jmp 


goepm 


;go to cp/m 



wboot:; loader on track 0, sector 1, which will be skippe 

; read cp/m from disk - assuming there is a 128 byt 

; start. 

* 

4ac3 318000 ' lxi 

4ac6 0e0a mvi 

4ac8 c5 push 

wboot0: ; enter 

4ac9 010034 lxi 

4acc cdbb4b call 

4acf 0e00 mvi 

4adl cd7d4b call 

4ad4 0e00 mvi 

4ad6 cda74b call 

4ad9 0e02 mvi 

4adb cdac4b call 

• 

; read sectors, count nsects to zero 

4ade cl pop b ;10-error count 

4adf 062c mvi b, nsects 



sp,buff ;using dma - thus 80 thru ff ok f 

c, retry ;max retries 
b 

here on error retries 

b, cpmb ;set dma address to start of disk 
setdma 

c, 0 ;boot from drive 0 
seldsk 

c,0 

settrk ;start with track 0 
c,2 ;start reading sector 2 

setsec 
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4ael 
4ae2 
4ae5 
4ae8 
4aeb 
4aee 
4aef 
4af0 
4afl 
4af4 
4af7 
4af9 

4afc 
4af f 
4b00 
4b01 
4b04 
4b05 
4b06 
4b07 
4b0a 
4b0b 
4b0c 



rdsecj 

c5 

cdcl4b 

c2494b 

2a6c4c 

118000 

19 

44 

4d 

cdbb4b 
3a6b4c 
f ela 
da054b 

■ 

3a6a4c 

3c 

4f 

cda74b 
af 

3c rdl: 
4f 

cdac4b 

cl 

05 

c2el4a 



gocpm : 



;read next sector 

push b 

call read 

jnz booterr 

lhld iod 

lxi d,128 

dad d ; 

mov b,h 

mov c , 1 ; 

call setdma 

Ida ios ; 

cpi 26 ; 

jc rdl 
must be sector 26 

Ida iot 

inr a 

mov c,a 

call settrk 

xra a 

inr a 

mov c,a 

call setsec 

pop b 

dcr b 

jnz rdsec 



;save sector count 

;retry if errors occur 
; increment dma address 
jsector size 

; incremented dma address in hi 

; ready for call to set dma 

;sector number just read 
;read last sector? 

, zero and go to next track 
get track to register a 

ready for call 

clear sector number 
to next sector 
ready for call 

recall sector count 
done? 



done with the load, reset default buffer address 
; (enter here from cold start boot) 







• 


enable rst0 and 


rst7 


4b0f 


f 3 




di 






4bl0 


3el2 




mvi 


a,12h 


; initialize command 


4bl2 


d3fd 




out 


revr t 




4bl4 


af 




xra 


a 




4bl5 


d3fc 




out 


intc 


; cleared 


4bl7 


3e7e 




mvi 


a , inte 


;rst0 and rst7 bits on 


4bl9 


d3fc 




out 


intc 




4blb 


af 




xra 


a 




4blc 


d3f3 


• 


out 


icon 


; interrupt control 






• 


set default buffer address to 80h 


4ble 


018000 




lxi 


b,buf f 




4b21 


cdbb4b 


» 


call 


setdma 








• 


reset 


monitor entry points 


4b24 


3ec3 




mvi 


a, jmp 




4b26 


320000 




s ta 


0 




4b29 


21034a 




lxi 


h , wboote 




4b2c 


220100 




shld 


1 


;jmp wboot at location 


4b2f 


320500 




sta 


5 


4b32 


21063c 




lxi 


h , bdos 




4b35 


220600 




shld 


6 


;jmp bdos at location 5 


4b38 


323800 




sta 


7*8 


;jmp to mon80 (may have 


4b3b 


2100f8 




lxi 


h ,mon80 


4b3e 


223900 




shld 


7*8+1 








■ 

> 


leave 


iobyte set 
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4b41 3a0400 

4b44 4f 

4b45 fb 

4b46 C30034 



4b49 cl 
4b4a 0d 
4b4b ca524b 

4b4e c5 
4b4f c3c94a 



booter r 



previously selected disk was b, send parameter to 
Ida cdisk ;last logged disk number 

mov c f a ;send to ccp to log it in 

ei 

jmp cpmb 

error condition occurred, print message and retry 



pop b 

dcr c 

jz booter0 

try again 

push b 

jmp wboot0 



; recall counts 



booter0 



4b52 215b4b 
4b55 cdd34b 
4b58 c30fff 



otherwise too many retries 
lxi h,bootmsg 
call prmsg 

jmp rmon80 ;mds hardware monitor 



4b5b 3f626f4 



bootmsg 



db 



'?boof ,0 



4b61 c312f8 



4b64 cd03f8 
4b67 e67f 
4b69 c9 



4b6a c309f8 



4b6d c30ff8 



4b70 af 
4b71 c9 



4b72 c30cf8 



4b75 c306f8 



const: 



conin: 



conout: 
list: 

listst: 



punch : 



reader 



;console status to reg-a 
(exactly the same as mds call) 
jmp csts 

;console character to reg-a 
call ci 

ani 7fh ;remove parity bit 

ret 

;console character from c to console out 
jmp co 

;list device out 

(exactly the same as mds call) 

jmp lo 



;return list status 
xr a a 

ret ;always not ready 

;punch device out 

(exactly the same as mds call) 

jmp po 

; reader character in to reg-a 
(exactly the same as mds call) 
jmp r i 



home 



;move to home position 
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treat as track 00 seek 



4b78 


0e00 




mvi 


c,0 




4b7a 


c3a74b 




jmp 


settrk 








seldsk: 


;select disk given by register c 


Ah>l A 
ID / U 






lxi 


h,0000h 


;return 0000 if error 


4b80 


79 




mov 


a ,c 




4b81 


fe04 




cpi 


ndisks 


;too large? 


4b83 


d0 




rnc 




;leave hi = 0000 


4b84 


e602 




ani 


10b 


;00 00 for drive 0,1 and 10 : 


4b86 


32664c 




sta 


dbank 


;to select drive bank 


4b89 


79 




mov 


a , c 


;00, 01, 10, 11 


4b8a 


e601 




ani 


lb 


;mds has 0,1 at 78, 2,3 at 8 


4b8c 


b7 




ora 


a 


;result 00? 


4b8d 


ca924b 




jz 


setd r ive 




4b90 


3e30 




mvi 


a, 00110000b ;selects drive 1 in I 






setdr ive : 






4b92 
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mov 


b f a 


;save the function 


4b93 


21684c 




lxi 


h , iof 


;io function 


4b96 


7e 




mov 


a ,m 




A W Q ^ 


eoct 




ani 


11001111b ;mask out disk numbe 




D\0 




ora 


b 


;mask in new disk number 




1 1 




mov 


m,a 


;save it in iopb 




C Q 

§§00 




IRSY 


n;§ 


;hl=disk number 


4b9e 


29 




dad 


h 


;*2 


4b9f 


29 




dad 


h 


;*4 


4ba0 


29 




dad 


h 


;*8 


4bal 


29 




dad 


h 


;*16 


4ba2 


11334a 




lxi 


d ,dpbase 


4ba5 


19 




dad 


d 


;hl=disk header table addres 


4ba6 


c9 


• 


ret 










• 

i 

settrk : 


; set 


track address given by c 


4ba7 


216a4c 




lxi 


h , iot 




4baa 


71 




mov 


m,c 




4bab 


c9 




ret 







10 fo 



4bac 216b4c 
4baf 71 
4bb0 c9 



setsec: ;set sector number given by c 



4bbl 
4bb3 
4bb4 
4bb5 
4bb6 

mi 



0600 
eb 
09 
7e 

326b4c 

61 



lxi 
mov 
ret 



sectran: 



mvi 

xchg 

dad 

mov 

sta 

mov 
ret 



h, ios 
m,c 



; translate sector be using table at de 
b,0 ;double precision sector number i 

;translate table address to hi 
b ; translate (sector ) address 

a,m ;translated sector number to a 

ios 

l,a ;return sector number in 1 



setdma: ;set dma address given by regs b,c 



45 



4bbb 


69 




mov 


l,c 




60 




mo v 


h , b 


4bbd 


226c4c 




shld 


iod 


4bc0 


c9 




ret 








• 

read: 


; read 


next disk record (assuming disk/trk/sec/dma 


4bcl 


0e04 




mvi 


c,readf ;set to read function 


4bc3 


cde04b 




call 


setfunc 


4bc6 


cdf04b 




call 


waitio ;perform read function 


4bc9 


c9 


; 


ret 


;may have error set in reg-a 






• 

wr ite: 


; disk 


write function 


4bca 


0e06 




mvi 


c . wr itf 


4bcc 


cde04b 




call 


setfunc ;set to write function 


4bcf 


cdf 04b 




call 


wa i tio 


4bd2 


c9 


"i 


ret 


;may have error set 






; 


utility subroutines 






prmsg : 


;print message at h,l to 0 


4bd3 


7e 




mov 


a,m 


4bd4 


b7 




ora 


a ;zero? 


4bd5 


c8 




rz 








• 


more 


to print 


4bd6 


e5 




push 


h 


4bd7 


4f 




mov 


c,a 


4bd8 


cd6a4b 




call 


conou t 


4bdb 


el 




pop 


h 


4bdc 


23 




inx 


h 


4bdd 


c3d34b 




jmp 


prmsg 






; 

setfunc 


• 








• 
> 


set function for next i/o (command in reg-c) 


4be0 


21684c 




lxi 


h,iof ;io function address 


4be3 


7e 




mov 


a r m ;get it to accumulator for maskin 


4be4 


e6f8 




ani 


11111000b ; remove previous command 


4be6 


bl 




ora 


c ;set to new command 


4be7 


77 




mov 


m,a ; replaced in iopb 






• 


the mds-800 controller req's disk bank bit in sec 






a 

1 


mask 


the bit from the current i/o function 


4be8 


e620 




ani 


00100000b ;mask the disk select bit 


4bea 


216b4c 




lxi 


h,ios ;address the sector selec 


4bed 


b6 




ora 


m ; select proper disk bank 


4bee 


77 




mov 


m,a ;set disk select bit on/o 


4bef 


c9 




ret 








• 

wai tio: 






4bf 0 


0e0a 




mvi 


c, retry ;max retries before perm error 






rewait: 










• 


start 


the i/o function and wait for completion 


4bf 2 


cd3f4c 




call 


intype ;in rtype 


4bf 5 


cd4c4c 


• 


call 


inbyte ;clears the controller 


4bf8 


3a664c 




Ida 


dbank ;set bank flags 
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4bfb b7 

4bfc 3e67 

4bfe 064c 

4c00 c20b4c 

4c03 d379 

4c05 78 

4c06 d37a 

4c08 c3104c 



ora a ;zero if drive 0,1 and nz 

mvi a,iopb and 0ffh ;low address for iopb 

mvi b,iopb shr 8 ;high address for iopb 

jnz iodrl ;drive bank 1? 

out ilow ;low address to controlle 

mov a , b 

out ihigh 

j mp wa i t0 



;high address 

;to wait for complete 



4c0b d389 
4c0d 78 
4c0e d38a 



iodrl: ; drive bank 1 



4cl0 cd594c wait0 
4cl3 e604 
4cl5 cal04c 



out 
mov 
out 

call 

ani 

jz 



ilow+10h 
a,b 

ihigh+10h 

instat 
iordy 
wai t0 



;88 for drive bank 10 



;wait for completion 
; ready? 



4cl8 cd3f4c 



4clb fe02 
4cld ca324c 



check io completion ok 

call intype ;must be io complete (00) 

00 unlinked i/o complete, 01 linked i/o comple 
10 disk status changed 11 (not used) 

cpi 10b ; ready status change? 

jz wready 



4c20 b7 
4c21 c2384c 



must be 00 in the accumulator 
ora a 
jnz werror 



; some other condition, re 



4c24 cd4c4c 
4c27 17 
4c28 da324c 
4c2b If 
4c2c e6fe 
4c2e c2384c 



4c31 c9 



check i/o error bits 

call inbyte 

ral 

jc wready 
rar 

ani 11111110b 

jnz werror 



;unit not ready 
;any other errors? 



read or write is ok, accumulator contains zero 
ret 



4c32 cd4c4c 
4c35 c3384c 



wready: -not ready, treat as error for now 

call inbyte ;clear result byte 

jmp trycount 



werror: ;return hardware malfunction (crc, track, seek, e 
the mds controller has returned a bit in each pos 
of the accumulator, corresponding to the conditio 



0 
1 

2 
3 
4 
5 
6 
7 



deleted data (accepted as ok above) 
crc error 
seek error 

address error (hardware malfunction) 
data over/under flow (hardware malfunct 
write protect (treated as not ready) 
write error (hardware malfunction) 
not ready 
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(accumulator bits are numbered 76543210) 



4c38 0d 
4c39 c2f24b 



4c3c 3e01 
4c3e c9 



4c3f 3a664c 

4c42 b7 

4c43 c2494c 

4c46 db79 

4c48 c9 

4c49 db89 

4c4b c9 



; it may be useful to filter out the various condit 

; but we will get a permanent error message if it i 

; recoverable. in any case, the not ready conditio 

; treated as a separate condition for later improve 

trycount : 

; register c contains retry count, decrement 'til z 

dcr c 

jnz rewait ;for another try 



mtype: 



intypl 



4c4c 3a664c inbyte: 

4c4f b7 

4c50 c2564c 

4c53 db7b 

4c55 c9 

4c56 db8b inbytl: 

4c58 c9 



cannot recover from error 
mvi a,l ;error code 

ret 

intype, inbyte, instat read drive bank 00 or 10 
dbank 
a 

intypl ;skip to bank 10 
rtype 

rtype+10h ;78 for 0,1 88 for 2,3 



Ida 
or a 
jnz 
in 
ret 
in 
ret 

Ida 

or a 

jnz 

in 

ret 

in 

ret 



dbank 
a 

inbytl 
r by te 

rbyte+10h 



4c59 


3a664c 


instat: 


Ida 


4c5c 


b7 




ora 


4c5d 


c2634c 




jnz 


4c60 


db78 




in 


4c62 


c9 




ret 


4c63 


db88 


instal : 


in 


4c65 


c9 




ret 








dat 


4c66 


00 


dbank : 


db 






iopb : 


; io 


4c67 


80 




db 


4c68 


04 


iof : 


db 


4c69 


01 


ion: 


db 


4c6a 


02 


iot : 


db 


4c6b 


01 


ios : 


db 


4c6c 


8000 


iod: 


dw 



dbank 
a 

instal 
dstat 

dstat+10h 



;disk bank 00 
10 



if drive 
if drive 



80h 

readf 

1 

offset 
1 

buff 



;normal i/o operation 

;io function, initial read 

; number of sectors to read 

; track number 

; sector number 

;io address 



define ram areas for bdos operation 
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C11UC1 




*4COcT 




ami 

ecj u 






oil du r : 


as 


1 TO 


4cee+ 


alv0 : 


as 


J J. 


1QBUT 


csvio : 


as 


J. D 


Aril rl4- 
4 QJ. UT 


a J. V j. : 


as 


J ± 




CT7 n • 
tovli 


rlc: 

U o 


-L Q 


•* u •* \- ■ 


a 1 • 

d X V t, m 


d«; 




4dfih+ 


C Q\7 9 • 

tQ V i t 


del 

Li O 


J. u 


4d7b+ 




d<* 




** u ^ a » 




Li o 


1 fi 




H ~3 *3 K A. 

enuus u 


6<JU 


<: 
9 


013c+= 


datsiz 


equ 


$-begdat 


4daa 




end 





;directory access buffer 
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APPENDIX C: A SKELETAL CBIOS 



skeletal cbios for first level of cp/m 2.0 altera 



Y) 10 1 4 




• 

/ 

rns lze 


equ 


20 


;cp/m version memory size in kilo 








Olds 


" is sddress offset 


from 3400h for memory sy 








man 


16k (referred to as 


"b" throughout the text) 


0000 




7 

biss 


equ 


(msize-20) *1024 




3400 


= 


ccp 


equ 


3400h+bias ;bsse of ccp 


j C 10 O 




bd os 


eq u 


ccp+806h 


;bsse of bdos 


4a00 


— 


bios 


equ 


ccp+1600h ;b3se of bios 


0004 


— 


cdi sk 


equ 


0004h 


; cur rent 


disk number 0=3,...,15=p 


n n n 1 

0003 




i o by t e 


equ 


0003h 


;intel i/o byte 


4a0 0 






org 


bios 


;origin of this progrsm 


0 0/C 


— 


nsects 


equ 


($-ccp)/128 ; 


warm start sector count 






7 
? 


j ump 


vector for 


individusl subroutines 




CJ y C43 




jmp 


boot 




cold start 


A a Gl "3 


c3s6 4s 


wDoote : 


jmp 


wboot 




warm stsrt 


43KI D 


Coll 4D 




jmp 


const 




console ststus 


A a d Q 
4310 y 


Co Z44D 




jmp 


conin 




console chsrscter in 




Coo / 4D 




jmp 


conout 




•console character out 




C o 4 3 4D 




D m P 


list 




•list charscter out 


A a "I 0 


Co 4u4D 




jmp 


punch 




■punch charscter out 


A = 1 R 
431 D 


Co 4 r 4 D 




jmp 


reader 




■reader chsrscter out 


4310 


C o o 4 4D 




jmp 


home 




•move hesd to home positi 


431 D 


C o D34 D 




jmp 


seldsk 




■select disk 


idle 


Co /U4D 




jrop 


settrk 




•set trsck number 




V- O _/ Z. *x kJ 




j m P 


setsec 




•set sector number 


4s24 


c33d4b 




jmp 


se tdma 




•set dms sddress 


4327 


c3c34b 




jmp 


re 3d 




•resd disk 


4323 


c3d64b 




jmp 


wr i te 




•write disk 


4s2d 


c34b4b 




jmp 


listst 




return list ststus 


4330 


c3s74b 




jmp 


sectran 




sector trsnslste 



fixed dsts tsbles for four-drive stsndsrd 
ibm-compstible 8" disks 









disk 


psrsmeter hesder 


for 


disk 


00 


4333 


734300 


dpbase: 


dw 


trans, 0000h 








4337 


000000 




dw 


0000h, 0000h 








4s3b 


f04c8d 




dw 


dirbf ,dpblk 








4s3f 


ec4d70 




dw 


chk00 ,31100 












• 


disk 


psrsmeter header 


for 


disk 


01 


4343 


734300 




dw 


trans, 0000h 








4s47 


000000 




dw 


0000h, 0000h 








4s4b 


f04c8d 




dw 


dirbf ,dpblk 








4s4f 


fc4d8f 




dw 


chk01,all01 












• 


disk 


psrsmeter hesder 


for 


disk 


02 


4353 


734300 




dw 


trans, 0000h 








4357 


000000 




dw 


0000h, 0000h 








435b 


f04c8d 




dw 


dirbf ,dpblk 








4s5f 


0c4eae 




dw 


chk02,all02 
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4a63 734a00 
4a67 000000 
4a6b f04c8d 
4a6f lc4ecd 



disk parameter header for disk 03 
dw trans, 0000h 

dw 0000h,0000h 
dw dirbf,dpblk 
dw chk03,all03 





• 


sector 


translate vector 








mm ' trans: 


36 




; sectors 
? sectors 


khhl 


4a7b 


170309 


db 


23,3,9,15 


; sectors 


9,10,11,12 


4a7f 


150208 


db 


21,2,8,14 


; sectors 


13,14,15,16 


4a83 


141a06 


db 


20,26,6,12 


; sectors 


17,18,19,20 


4a87 


121804 


db 


18,24,4,10 


; sectors 


21,22,23,24 


4a8b 


1016 


db 


16,22 


; sectors 


25,26 



dpblk: ;disk parameter block, common to all disks 



4a8d 


la00 


dw 


26 ; 


sectors per track 


4a8f 


03 


db 


3 ; 


block shift factor 


4a90 


07 


db 


7 


block mask 


4a91 


00 


db 


0 


null mask 


4a92 


£200 


dw 


242 


disk size-1 


4a94 


3f00 


dw 


63 


-directory max 


4a96 


C0 


db 


192 


•alloc 0 


4a97 


00 


db 


0 


■alloc 1 


4a98 


1000 


dw 


16 


rcheck size 


4a9a 


0200 


dw 


2 


rtrack offset 



4a9c af 

4a9d 320300 

4aa0 320400 

4aa3 c3ef4a 

4aa6 318000 
4aa9 0e00 
4aab cd5a4b 
4aae cd544b 



end of fixed tables 

individual subroutines to perform each function 

boot: ;simplest case is to just perform parameter initi 

xra a ;zero in the accum 

sta iobyte ;clear the iobyte 

sta cdisk ;select disk zero 

jmp gocpm ; initialize and go to cp/ 

r 

wboot: ; simplest case is to read the disk until all sect 

lxi sp,80h ;use space below buffer f 

mvi c,0 ;select disk 0 
call seldsk 

call home ;go to track 00 



4abl 062c 
4ab3 0e00 
4ab5 1602 



4ab7 210034 

4aba c5 
4abb d5 
4abc e5 
4abd 4a 
4abe cd924b 
4acl cl 



mvi b,nsects ;b counts # of sectors to 

mvi c,0 ;c has the current track 

mvi d,2 ;d has the next sector to 

; note that we begin by reading track 0, sector 2 s 
; contains the cold start loader, which is skipped 

lxi h,ccp ;base of cp/m (initial lo 
loadl: ;load one more sector 

push b ;save sector count, current track 

push d ;save next sector to read 

push h ;save dma address 

mov c,d ;get sector address to register c 

call setsec ;set sector address from register 

pop b ;recall dma address to b,c 
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4ac2 


c5 




push 


b 


; replace on stack for later recal 


4aCJ 






pal 1 
Call 


O € lu lilct 


• cot* Hm3 aHHrPCQ f r r\rr\ K c 
f bcl U llld dUUL coo jl l kjiii %j w v_ 






• 


UL 1VC 




t* r ?\cV cjpphor qpf dtna addrps 


4ac6 


cdc34b 




call 


read 




4ac9 


f e00 




cpi 


00h 


;any errors? 


*4 ct LU 




• 


jnz 


wboot 


• k ^ f- rw fhp onf irp hoot* if* ^ n orrn 

f LCLLy L. 11 t: Cll Lit C UUU L 11 all C 1_ L \J 






• 


no error, move 


t" O nPXt" «5f»ft"Or 

l_ W 11CA L O C V L W 1. 


*i d \z 






pop 


h 


, i C^ull UULCl dU U 1 coo 


** a v-. J_ 


1 1 R000 




lxi 


d,128 


1 \Ji llld V_l llld T J- V 




1 9 




dad 


d 


f 11CW \J 1IICI QUU1 UOD 1 O 1 11 11 , J. 


-* au j 






pop 


d 


/iclall ScLlui aUUtebS 


4ad4 


cl 




pop 


b 


; recall number of sectors remaini 


4ad5 


05 




dcr 


b 


; sectors=sectors-l 


A r\ f\ 


La cItci 




jz 


gocpm 


; transfer to cp/m if all have bee 








more 


sectors remain to load, check for track chan 




X *± 




inr 


d 




4ada 


7a 




mov 


a,d 


;sector=27?, if so, change tracks 


4adb 


felb 




cpi 


27 




4dUU 


UdUcild 


• 


jc 


loadl 


;carry generated if sector<27 






• 


end of current 


track, go to next track 


4ae0 


1601 




mvi 


d,l 


;begin with first sector of next 


4ae2 


0 C 




inr 


c 


; track=track+l 






i 


save 


register state, and change tracks 


4ae3 


c5 




push 


b 










push 


d 




TI Cl V— 






push 


h 






LU / utu 




call 


settrk 


;track address set from register 


4 Pi pQ 

t at. y 






pop 


h 




4aea 


dl 




pop 


d 




4aeb 


cl 




pop 


b 




4 a e c 


c3ba4a 


• 


jmp 


loadl 


;for another sector 






7 


end of load operation, set parameters and go to c 














4ae f 


3ec3 




mvi 


a, 0c3h 


;c3 is a jmp instruction 


4afl 


320000 




s ta 


0 


; for jmp to wboot 


4af4 


21034a 




lxi 


h,wboote ;wboot entry point 


4af 7 


2 20100 

XJ X XJ XJ 


• 


shld 


1 


;set address field for jmp at 0 


4af a 


320500 




sta 


5 


;for jmp to bdos 


4a fd 


21063c 




lxi 


h , bdos 


;bdos entry point 






• 


shld 


6 


;address field of jump at 5 to bd 


4b03 


018000 


/ 


lxi 


b,80h 


;default dma address is 80h 


4b06 


cdad4b 


• 


call 


setdma 




4b09 


f b 


r 


ei 




;enable the interrupt system 


4b0a 


3a0400 




Ida 


cdisk 


;get current disk number 


4b0d 


4f 




mov 


c , a 


;send to the ccp 


4b0e 


C30034 




jmp 


ccp 


;go to cp/m for further processin 
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simple i/o handlers (must be filled in by user) 
in each case, the entry point is provided, with s 
to insert your own code 

const: ;console status, return 0ffh if character ready, 

4bll ds 10h ;space for status subroutine 

4b21 3e00 mvi a,00h 

4b23 c9 ret 

» 

conin: ;console character into register a 

4b24 ds 10h ;space for input routine 

4b34 e67f ani 7fh ;strip parity bit 

4b36 c9 ret 

; 

conout: ;console character output from register c 

4b37 79 mov a,c ;get to accumulator 

4b38 ds 10h ; space for output routine 

4b48 c9 ret 



4b49 79 
4b4a c9 



4b4b af 
4b4c c9 



list: ;list character from register c 

mov a,c ;character to register a 

ret ;null subroutine 

listst: ;return list status (0 if not ready, 1 if ready) 
xra a ;0 is always ok to return 

ret 



punch: ;punch character from register c 
4b4d 79 mov a,c ;character to register a 

4b4e c9 ret ;null subroutine 



reader: 



4b4f 3ela 
4b51 e67f 
4b53 c9 



;read character into register a from reader devic 

mvi a,lah ;enter end of file for now (repla 

ani 7fh ;remember to strip parity bit 
ret 



i/o drivers for the disk follow 

for now, we will simply store the parameters away 
in the read and write subroutines 



4b54 0e00 
4b56 cd7d4b 
4b59 c9 



home: ;move to the track 00 position of current drive 
; translate this call into a settrk call with param 

mvi c,0 ;select track 0 

call settrk 

ret ;we will move to 00 on first read 



4b5a 210000 
4b5d 79 
4b5e 32ef4c 
4b61 fe04 



seldsk: ?select disk given by register c 

lxi h,0000h ;error return code 

mov a,c 
sta diskno 

cpi 4 ;must be between 0 and 3 
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4b63 d0 
4b64 

4b6e 3aef4c 
4b71 6f 
4b72 2600 
4b74 29 
4b75 29 
4b76 29 
4b77 29 
4b78 11334a 
4b7b 19 
4b7c c9 



rnc ;no carry if 4,5,... 

disk number is in the proper range 

ds 10 ;space for disk select 

compute proper disk parameter header address 



Ida 
mov 
mvi 
dad 
dad 
dad 
dad 
lxi 
dad 
ret 



diskno 
l,a 
h r 0 
h 
h 
h 
h 

d,dpbase 



;l=disk number 0,1,2,3 
;high order zero 
;*2 
;*4 

;*8 

;*16 (size of each header) 
; hl= . dpbase (diskno*! 6) 



settrk: ;set track given by register c 
4b7d 79 mov a,c 

4b7e 32e94c sta track 

4b81 ds 10h ;space for track select 

4b91 c9 ret 



4b92 79 

4b93 32eb4c 
4b96 

4ba6 c9 



setsec: ;set sector given by register c 
mov a,c 
sta sector 

ds 10h ;space for sector select 

ret 



4ba7 eb 
4ba8 09 
4ba9 6e 
4baa 2600 
4bac c9 



4bad 69 
4bae 60 
4baf 22ed4c 
4bb2 
4bc2 c9 



sectran: 

;translate the sector given by be using the 

;translate table given by de 

xchg ;hl=. trans 

dad b ;hl=. trans (sector) 

mov l,m ;1 = trans ( sector ) 

mvi h,0 ;hl= trans (sector ) 

ret ;with value in hi 

/ 

setdma: ;set dma address given by registers b and c 



mov 

mov 

shld 

ds 

ret 



l,c ;low order address 

h,b ;high order address 

dmaad ;save the address 

10h ; space for setting the dma addres 



4bc3 

4bd3 c3e64b 



4bd6 



read: ;perform read operation (usually this is similar 
; so we will allow space to set up read command, th 

; common code in write) 

ds 10h ;set up read command 

jmp waitio ;to perform the actual i/o 

write: ;perform a write operation 

ds 10h ;set up write commano 

waitio: ;enter here from read and write to perform the ac 
; operation. return a 00h in register a if the ope 

; properly, and 01h if an error occurs during the r 
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4be6 

4ce6 3e01 
4ce8 c9 



in this case, we have saved the disk number in 'd 

the track number in 'track' (0-76 
the sector number in 'sector' ti- 
the dma address in 'dmaad' (0-655 

ds 256 ; space reserved for i/o drivers 

mvi a,l ;error condition 

ret ;replaced when filled-in 

the remainder of the cbios is reserved uninitiali 
data area, and does not need to be a part of the 
system memory image (the space must be available, 
however, between "begdat" and "enddat"). 



4ce9 


track : 


ds 


2 


; two bytes for expansion 


4ceb 


sector : 


ds 


2 


; two bytes for expansion 


4ced 


dmaad : 


ds 


2 


;direct memory address 


4cef 


diskno : 


ds 


1 


;disk number 0-15 






7 
• 


scratch 


ram 


area for bdos use 




4cf 0 = 


begdat 


equ 


$ 


;beginning of data 


area 


4cf 0 


dirbf : 


ds 


128 


;scratch directory 


area 


4d70 


all00: 


ds 


31 


;allocation vector 


0 


4d8f 


all01: 


ds 


31 


;allocation vector 


1 


4dae 


all02: 


ds 


31 


;allocation vector 


2 


4dcd 


all03: 


ds 


31 


;allocation vector 


3 


4dec 


chk00 : 


ds 


16 


;check vector 0 




4dfc 


chk01: 


ds 


16 


;check vector 1 




4e0c 


chk02: 


ds 


16 


;check vector 2 




4elc 


chk03: 


ds 


16 


;check vector 3 




4e2c = 


J 

enddat 


equ 


$ 


;end of data area 




013c = 


datsiz 


equ 


$-begdat ; size of data area 




4e2c 




end 
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APPENDIX D: A SKELETAL GETSYS/PUTSYS PROGRAM 



combined getsys and putsys programs from Sec 4. 
Start the programs at the base of the TPA 



0100 
0014 = 



ms lze 



org 
egu 



0100h 
20 



; size of cp/m in Kbytes 



; "bias" is the amount to add to addresses for > 20k 
; (referred to as "b" throughout the text) 



0000 = 

3400 = 

3c00 = 

4a00 = 



bias 
ccp 
bdos 
bios 

; 



egu (msize-20) *1024 

egu 3400h+bias 
egu ccp+0800h 
egu ccp+1600h 

getsys programs tracks 0 and 1 to memory at 
3880h + bias 



register 
a 
b 
c 

d ,e 

h,l 

sp 



usage 
(scratch register) 
track count (0...76) 
sector count (1...26) 
(scratch register pair) 
load address 
set to stack address 







gstart: 




• start of getsys 


0100 


318033 


lxi 


sp,ccp-0080h 


; convenient plac 


0103 


218033 


lxi 


h,ccp-0080h 


; set initial loa 


0106 


0600 


mvi 


b,0 


■ start with trac 






rd$trk : 




• read next track 


0108 


0e01 


mvi 


c,l 


; each track star 






rd$sec: 






010a 


cd0003 


call 


read$sec 


■ get the next se 


010d 


118000 


lxi 


d r 128 


• offset by one s 


0110 


19 


dad 


d 


(hl=hl+128) 


0111 


0c 


inr 


c 


; next sector 


0112 


79 


mov 


a , c 


• fetch sector nu 


0113 


felb 


cpi 


27 


and see if la 


0115 


da0a01 


jc 


rdsec 


• <, do one more 






; arrive here 


at end of track, move to next track 


0118 


04 


inr 


b 


• track = track+1 


0119 


78 


mov 


a,b 


check for last 


011a 


f e02 


cpi 


2 


• track = 2 ? 


011c 


da0801 


jc 


rd$trk 


• <, do another 



; arrive here at end of load, halt for lack of anything b 



flllf fb 
0120 76 



ei 
hit 
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• 


outsys 


program, places memory image starting at 






• 

r 


3880h + 


bias back to tracks 0 and 1 






• 

f 


start this program at the next 


page boundary 


0200 






org 


($+0100h) and 0ff00h 








put$sys: 






0200 


318033 




lxi 


so ccd— 0 0 80h 


; convenient plac 


0203 


218033 




lxi 


11 f uv^p V *J \J XJ ll 


; start of dump 


0206 


0600 




mvi 


h 0 


; start with trac 






wr$trk : 






0208 


0e01 




mvi 


r 1 


; start with sect 






wr $sec: 






020a 


cd0004 




call 


wr ite$sec 


; write one secto 


020d 


118000 




lxi 


d,128 


; length of each 


0210 


19 




dad 


d 


; <hl>=<hl> + 128 


0211 


0c 




inr 


c 


<c> = <c> + 1 


0212 


79 




mov 


d , j i*. 


; see i f 


0213 


felb 




cpi 




; past end of t 


0215 


da0a02 




jc 


W L yOC^ 


; no, do another 






t 


arrive here 


at end of track, move to 


next track 


0218 


04 




inr 


b 


; track = track+1 


0219 


78 




mov 


a , b 


; see if 


021a 


fe02 




cpi 


2 


; last track 


021c 


da0802 




jc 


wr $trk 


; no, do another 






• 

r 


done with putsys, halt for lack 


of anything bette 


021f 


fb 




ei 






0220 


76 




hit 










• 


user supplied 


subroutines for sector 


read and write 






; 


move to 


next page boundary 




0300 






org 


($+0100h) and 0ff00h 








read$sec: 












; read 


the next sector 










; track 


in <b>. 










; sector in <c> 










; dmaaddr in <hl> 




0300 


c5 




push 


b 




0 301 


e5 




push 


h 








• 


user defined 


read operation goes here 




0302 






ds 


64 




0342 


el 




pop 


h 




0343 


cl 




pop 


b 
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0344 c9 



ret 



0400 



0400 c5 

0401 e5 



0402 

0442 el 

0443 cl 

0444 c9 



0445 



org ($+0100h) and 0ff00h 

wr ite$sec: 

; same parameters as read$sec 



; another page bo 



push 
push 



b 
h 



; user defined write operation goes here 
ds 64 



pop 
pop 
ret 



h 
b 



; end of ge tsys/putsys program 
end 
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APPENDIX E: A SKELETAL COLD START LOADER 



this is a sample cold start loader which, when modified 
resides on track 00, sector 01 (the first sector on the 
diskette) . we assume that the controller has loaded 
this sector into memory upon system start-up (this pro- 
gram can be keyed-in, or can exist in read/only memory 
beyond the address space of the cp/m version you are 
running) . the cold start loader brings the cp/m system 
into memory at "loadp" (3400h + "bias"). in a 20k 
memory system, the value of "bias" is 0000h, with large 
values for increased memory sizes (see section 2). afte 
loading the cp/m system, the clod start loader branches 
to the "boot" entry point of the bios, which begins at 
"bios" + "bias." the cold start loader is not used un- 
til the system is powered up again, as long as the bios 
is not overwritten. the origin is assumed at 0000h, an 
must be changed if the controller brings the cold start 
loader into another area, or if a read/only memory area 
is used. 



0000 






org 


0 


base of ram in cp/m 


0014 




msize 


equ 


20 


min mem size in kbytes 


0000 




bias 


egu 


(msize-20) *1024 ; 


offset from 20k system 


3400 


= 


ccp 


equ 


3400h+bias 


base of the ccp 


4a00 




bios 


equ 


ccp+1600h 


base of the bios 


0300 




biosl 


equ 


0300h 


• length of the bios 


4a00 




boot 


equ 


bios 




1900 




size 


equ 


bios+biosl-ccp , 


• size of cp/m system 


0032 




sects 


equ 


size/128 


# of sectors to load 






• 


begin 


the load operation 








cold: 








0000 


010200 




lxi 


b,2 


• b=0 , c=sector 2 


0003 


1632 




mvi 


d , sects 


; d=# sectors to load 


0005 


210034 




lxi 


h,ccp 


r base transfer address 






lsect: 


; load 


the next sector 





insert inline code at this point to 
read one 128 byte sector from the 
track given in register b, sector 
given in register c, 
into the address given by <hl> 

branch to location "cold" if a read error occurs 
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************************************************* 
* 

* user supplied read operation goes here... 

* 

************************************************* 



0008 c36b00 
000b 



jmp past$patch 
ds 60h 



remove this when patche 



006b 15 
006c ca004a 



past$patch: 

; go to next sector if load is incomplete 

dcr d ; sects=sects-l 

jz boot ; head for the bios 



more sectors to load 

we aren't using a stack, so use <sp> as scratch registe 
to hold the load address increment 



006f 318000 
0072 39 



lxi 
dad 



sp,128 
sp 



; 128 bytes per sector 
; <hl> = <hl> + 128 



0073 0c 

0074 79 

0075 felb 
0077 da0800 



mr 
mov 
cpi 
jc 



c 

a,c 

27 

lsect 



; sector = sector + 1 

; last sector of track? 
; no, go read another 



end of track, increment to next track 



007a 0e01 

007c 04 

007d C30800 
0080 



mvi 
inr 
jmp 
end 



c,l 

b 

lsect 



sector = 1 
track = track + 1 
for another group 
of boot loader 
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APPENDIX F: CP/M DISK DEFINITION LIBRARY 



1: ; CP/M 2.0 disk re-definition library 
2: ; 

3: ; Copyright (c) 1979 

4: ; Digital Ritearch 

5: ; Box 579 

6: ; Pacific Grove, CA 

7: ; 93950 

8: ; 

9: ; CP/M logical disk drives are defined using the 

10: ; macros given below, where the sequence of calls 

11: ; is: 
12: ; 

13: ; disks n 

14: ; diskdef parameter-list-0 

15: ; diskdef parameter-list-1 
16: ; 

17: ; diskdef oarameter-list-n 

18: ; endef 
19: ; 

20: ; where n is the number of logical disk drives attached 

21: ; to the CP/M system, and parameter-list-i defines the 

22: ; characteristics of the ith drive ( i=0 , 1 , . . . ,n-l ) 
23: ; 

24: ; each parameter-list-i takes the form 

25: ; dn, f sc , lsc , [ skf ] , bis , dks , di r , cks , of s , [0 ] 

26: ; where 

27: ; dn is the disk number 0,l,...,n-l 

28: ; fsc is tne first sector number (usually 0 or 1) 

29: ; lsc is the last sector number on a track 

30: ; skf is optional "skew factor" for sector translate 

31: ; bis is tne data block size (1024 , 2048 16384) 

32: ; dks is tne disk size in bis increments (word) 

33: ; dir is tne number of directory elements (word) 

34: ; cks is the number of dir elements to checksum 

35: ; ofs is the number of tracks to skip (word) 

36: ; [0] is an optional 0 which forces 16K/directory en 

37: ; 

38: ; for convenience, the form 
39: ; dn,dm 

40: ; defines disk dn as having the same characteristics as 

41: ; a previously defined disk dm. 
42: ; 

43: ; a standard four drive CP/M system is defined by 
44: ; disks 4 

45: ; diskdef 0,1,26,6,1024,243,64,64,2 

46: ; dsk set 0 

47: ; rept 3 

48: ; dsk set dsk+1 

49: ; diskdef %dsk,0 

50: ; endm 

51: ; ender 

52: ; 

53: ; the value of "begdat" at the end of assembly defines t 
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D t . 




beginning of the uninitialize ram area above the bios. 


5 5 




while 


the value of "enddat" defines the next location 


^ ft . 
D D 




following the end of the data area. the size of this 


7 




area is given by the value of "datsiz" at the end of t 


ft . 




assembly. note that the allocation vector will be qui 


z o . 

b y : 




large 


if a large disk size is defined with a small bio 


ft 




s ize . 




ft l < 

O J. . 










O rv lid i. 


macro 


an 


ft ^ ■ 


7 7 


derine 


a single disk header list 
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Hri£»& H n • 


aw 


xlt&dn, 0t3k)k)h ;translate table 


6 5 ■ 




aw 


vvv\on,viOvx)L\ ;scratcn area 


ft ft 

D D 




uw 


u x i uu t r cipuif un ;air dull , pa im oiock 


ft 7 
0 / 




dw 


csv&dn, alv&dn ;check, alloc vectors 


ft ft 
0 o 




endm 




ft Q 


7 






7 0 


Hi elf c 


macro 


nd 


71 : 


• • 

f / 


define 


nd disks 






set 


nd ;;tor later reference 


7 "i 


» r~i t""\ V-s s~\ 

: apoase 


equ 


$ ;base of disk parameter blocks 


7 A 


7 7 


generate the nd elements 




US Nil At 


set 


0 


7 ft . 




rept 


nd 


•7 "7 
/ / 




dskhdr 


%dsknxt 




asKnxt 


set 


dsknxc+1 


7 9 




endm 




W XJ 




endm 




ft 1 • 


• 

r 






ft 9 


U LyDllCJ L 


macro 


dn 


ft ^ 


► Ht^ W £. r\ 
. UpUaUll 


equ 


$ ;disk parm block 


ft 6. 




endm 




ft ^ 


• 7 






ft ft 


■ uuu 


macro 


data, comment 


ft 7 
o / 


7 7 


define 


a db statement 


ft ft 

O O 




db 


data comment 


ft Q 




endm 




Q C) 
-7 U 


• 7 






_7 -L 


• uuw 


macro 


data, comment 




7 7 


define 


a dw statement 






dw 


data comment 


94 




endm 




95 


• 






96 


* a cc] 

• ^ V* 


macro 


m,n 


9 7 


# / 


greatest common divisor of m,n 


9 ft 

-7 O 


t 9 


produces value qcdn as result 




7 # 


(used 


in sector translate table generation) 


J. iy 


i y uiu 


set 


m ;;variable for m 


X V ± 




set 


n ; ; variable for n 


102 


MVUI. 


set 


0 ; ; variable for r 


103 




rept 


65535 


1 0 4 

J. 1U T 


> y t u a 


set 


gcdm/gcdn 


1 ac 
1 10 D 


gcd r 


set 


gcdm - gcdx*gcdn 


1 01 ft 




if 


gcdr = 0 


107 




exi tm 




108 




endif 
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109: 


gcdm 


set 


gcdn 


110: 


gcdn 


set 


gcdr 


111: 




endm 




112: 




endm 




113: 








"I 1 vl 

114 


d i s kd e f 


macro 


dn,fsc,lsc,skf,bls,dks;dir,cks,bfs,kl6 


115: 


* • 


generate the set statements for later tables 


116 : 




if 


nul lsc 


117: 


» • 


cur rent 


disk dn same as previous fsc 


118 : 


dpb&dn 


equ 


dpb&fsc equivalent parameters 


119 : 


als&dn 


equ 


als&fsc ;same allocation vector size 


1 20 : 


css&dn 


equ 


css&fsc ;same checksum vector size 


TIT 

121: 


xlt&dn 


equ 


xlt&fsc ; same translate table 


122: 




else 




123: 


secmax 


set 


lsc-(fsc) ;;sectors 0... secmax 


124 


sectors 


set 


secmax+1 ; ;number of sectors 


125: 


als&dn 


set 


(dks)/8 ;;size of allocation vector 


126 




if 


( (dks) mod c) ne 0 


127 


als&dn 


set 


als&dn+l 


1 28 : 




endif 




1 29 : 


css&dn 


set 


(cks)/4 ;;number of checksum elements 


130 


• • 

i > 

blkval 


generate the block shift value 


131: 


set 


bls/128 ;, -number of sectors/block 


132 


blkshf 


set 


0 ;;counts right 0's in blkval 


133 


blkmsk 


set 


0 yjrills with l's from right 


134 




rept 


16 ;;once for each bit position 


135 




if ' 


blkval=l 


136 




exi tm 




137 




endif 




138 


* t r 


otherwise, high order 1 not found yet 


139 


: blkshf 


set 


blkshf+1 


140 


: Dlkmsk 


set 


(blkmsk shl 1) or 1 


141: 


blkval 


set 


blkval/2 


14 2: 




endm 




143: 


• • 

r / 


generate the extent mask byte 


1 A A . 

14 4: 


Dlk val 


set 


bls/1024 ;;number of kilobytes/block 


145 


: extmsk 


set 


0 ;;fiil from right with l's 


146 




rept 


16 


147 




if 


blkval=l 


148 




exi tm 




149 




endi f 




150 




otherwise more to shift 


151 


extmsk 


set 


(extmsk shl 1) or 1 


152 


: blkval 


set 


blkval/2 


153 




endm 




154 




may be 


double byte allocation 


155 




if 


(dks) > 256 


156 


: extmsk 


set 


(extmsk shr 1) 


157 




endif 




158 


* mm 

r 9 


may be 


optional [0] in last position 


159 




if 


not nul kl6 


1 C (A 

low 


\ extmsk 


set 


kl6 


ID1 




endi f 




162 




now generate directory reservation bit vector 


163 


: d i r r em 


set 


dir ;;# remaining to process 
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164 


d i r bk s 


set 


bls/32 ;;number of entries per block 


165 


dirblk 


set 


0 ; ; fill with l's on each loop 


166 




r eot 


16 


167 




if L 


di r r em= 0 


168 




exi tm 




169 




endif 




170 


'. . . 


not complete, iterate once again 


171- 

i / -L. 




shift 

Oil 1 i L 


riaht - and add i hiah order hit 


172 


dirblk 


o p» 4- 


(dirblk shr i) or 8000h 


173 




i f 


Hi r r ptti ^ H i r hlc ^ 

V-4 J_ 1_ J_ d 11 / U 1 L l\ O 


174 


d i r r em 


c: o t" 


c\ \ rr ptti — Hi rriltQ 

V_i J. L 1. C.1U U 1 L kJ"\ O 


175 




G Is G 




176 


d i r r em 


set 


0 


177 




e ndi f 




178 








179 




Hrihh H T" 


Vill f j >-) ^ DC L a LC Cij u v 


180 




H Hw 


S;QPrt*nrc! ^ • app npr 1~ r P l<r ^ 

u O ~ v_» Vy l_Oj \ ^ O V. W (uv C i- u l. a I\ / 


181 




ddb 


%blkshf ,<;blcck " shift> 


182 : 




ddb 


%blkmsk ,<; block mask> 


183 




ddb 


%extrask ,<;extnt mask> 


184 




ddw 


% (dks) -1 , < ; uisk size-l> 


185 




udw 


% (dir)-l ,<;airectory max> 


186 




ddb 


%dirblk shr 8,<;alloc0> 


187 : 




ddb 


%dirblk ana 0f f h, < ; allocl> 


188 : 




ddw 


% (cks) /4 ,<; check size> 


189 : 




ddw 


%of s, < ; of f set> 


190 : 


• • 


generate the translate table, if requested 


191 




if 


nul skf 


192 


xlt&dn 


equ 


0 ;no xlate table 


193 




else 




194 




if 


skf = 0 


195 


xlt&dn 


equ 


0 ;no xlate table 


196 




else 




197 




generate the translate taDle 


198 


n v t" qpr 

HALO d V 


set 


0 ;;next sector to fill 


19 9 


■ n xt - ha s 


set 


0 ; ; moves by one on overflow 
%sectors,skf 


200 




gcd 


201 


• • 


gcdn = 


gcd ( sectors, skew) 


202 


; neltst 


set 


sector s/gcdn 


203 


• • 


neltst 


is number of elements to generate 


204 




before 


we overlap orevious elements 


205 


ne It s 


set 


neltst ; ; counter 


206 


x 1 1 Ft dn 


equ 


$ ;translate table 


207 




rept 


sectors ; ;once for each sector 


208 




if 


sectors < 256 


209 




ddb 


%nxtsec+ ( f sc) 


210 




else 




211: 




ddw 


%nxtsec+ ( f sc) 


212 




endi f 




213 


nxt sec 


set 


nxtsec+ (skf) 


214 

£m -L *T 




if 


nxtseo >= sectors 


£- -L ~> 


1 1 A L o C ^ 


set 


nxtsec-sectors 


216 




endi f 




217 


: nelts 


set 


nelts-1 


218 




if 


nelts = 0 
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9 1 Q 
Z J. y 


» n vt" ha c 
■ IlALUao 


DC U 


nvj- ha e4- i 


Z Z io 


• n yI" car* 




IlAtUab 


9 91- 

Z Z J. 


ne ± u o 


bet 


no 1 f 


z z z 




©ndi f 




0 9 1 
Z Z J 




endm 




Z Z *4 




q n H "i -F 


f f CI1U i. 11UX L uL U t: o L. 


? ? 5 




,q n "i "F 

CllUl J_ 


• ipnri of mil bis test 


226 




pndm 




2 27" 


• 

t 






9 9ft- 
z z o ■ 




m s~* r r\ 
Ilia tiU 


1 ah cn3 pa 
laU r b^aLt 


9 99 < 

Z Z 7 4 


1 ah» 
i a u » 


V-J o 


o n a r^p 


9 301 
Z J> lu 




tr 11 Li ill 




9 3 1 ■ 

Z O J- 4 








9 3 9' 


-L \-l O 


ma f* r ri 
nia v- i. w 


1 h n 1 
xu ^ uii r v a _l 


9 3 3 

Z J o 






i ua uu r t vaiaUil 


9 3 4 

i J T 




tr n mil 




235 ■ 


* 








p n rl p f 

C 11 U C i. 


macro 




9^7- 

Z J / < 




generate the necessary ram data areas 




Ucy Ua u 


equ 


$ 


Z O -7 < 


i r hi i *P • 
UlL UU J- • 


ds 


128 ;directory access buffer 


9 A CI 
Z *t v 


<J o Nil XI 


set 


0 


£, *± X < 




rept 


ndisks ; ;once for eacn disk 


9 4 9- 

Z *l z < 




Ids 


alv, %dsknxt ,als 


9 4 • 
z o « 




Ids 


csv,%dsknxt,css 


9 4 4- 


/3 c; I«r n v f" 
UbMlAL 


set 


dsknxt+1 


245 ■ 

<L ** J 




endm 




ZtD , 


cnuua U 


equ 


$ 


0 Al 

£t *± 1 


ua Lb 1Z 


equ 


$-begdat 


248 


• • 


db 0 at 


this point forces hex record 


249 




endm 
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APPENDIX G: BLOCKING AND DEBLOCKING ALGORITHMS. 



***************************************************** 

* * 

* Sector Deblocking Algorithms for CP/M 2.0 * 

* * 
***************************************************** 

utility macro to compute sector mask 



8 • 

<-> 


0 ill a O rw 


mac ro 


hblk 




q 


' 7 f 


compute log2(hblk) 


f L C LUL 11 *T A CIO L COUl L 


-L V 


. * 


( z * x 


ex - nbik on 


rpHirn) 

L LU1 11/ 


1 1 • 

_L _L ■ 


0 V 


set 


hblk 




J. z , 




set 


0 




1 J ! 


• • 

f r 


count 


right shifts 


of @y until = 1 


1 4 : 




r ept 


8 




15' 




if 


@y = 1 




1 6 • 




exi tm 






1 "7 . 




endif 






18 ■ 


/ 1 


@y is 


not 1, shift 


right one position 


19 ' 




set 


@y shr 1 




20 


@x 


set 


@x + 1 




21: 




endm 






22 




endm 






23 










24 


.***************************************************** 


25 


. * 






* 


? fi 

£4 u 


. * 


CP/M to host disk constants * 


0 "7 


. * 






* 


28 


.***************************************************** 

f 


29: 


blksiz 


equ 


2048 


;CP/M allocation size 


30: 


hstsiz 


equ 


512 


;host disk sector size 


31: 


hstspt 


equ 


20 


;host disk sectors/trk 


32: 


hstblk 


equ 


hstsiz/128 


;CP/M sects/host buff 


33: 


cpmspt 


equ 


hstblk * hstspt ;CP/M sectors/track 


34 


• secmsk 


equ 


hstblk-1 


;sector mask 


35 




smask 


hstblk 


;compute sector mask 


36 


, secshf 


equ 


@x 


;log2 (hstblk) 


37 










38 


. ***************************************************** 


39 


. . * 






* 



. * 
. * 



BDOS constants on entry to write 



* 
* 



.***************************************************** 

wrall equ 0 ;write to allocated 

wrdir equ 1 ;write to directory 

wrual equ 2 ;write to unallocated 

7 

.***************************************************** 
: * * 



The BDOS entry points given below show the 
code which is relevant to deblocking only. 



* 
* 
* 

.***************************************************** 
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dpbase 

boot: 
wboot: 



DISKDEF macro, or hand coded tables go here 
equ $ ;disk param block base 



;enter here on system boot to initialize 



xra 
sta 
sta 
ret 



a 

hstact 
unacnt 



;0 to accumulator 
;host buffer inactive 
;clear unalloc count 



seldsk: 



;select disk 



mov 

sta 

mov 

mvi 

rept 

dad 

endm 

lxi 

dad 

ret 



a,c 

sekdsk 

l,a 

h r 0 

4 

h 

d, dpbase 
d 



;selected disk number 
;seek disk number 
;disk number to HL 

;multiply by 16 



;base of parm block 
;hl=.dpb(curdsk) 



settrk : 



;set track given by registers BC 



mov 
mov 
shld 
ret 



h r b 

lrC 

sektrk 



;track to seek 



setsec: 



;set sector given by register c 



mov 
sta 
ret 



a r c 

seksec 



;sector to seek 



setdma 



;set dma address given by BC 



mov 
mov 
shld 
ret 



h,b 
l,c 

dma ad r 



sectran: 



; translate sector number BC 
mov h,b 
mov l,c 
ret 
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104: .***************************************************** 

105: •* * 

106: ;* The READ entry point takes the place of * 

107: ;* the previous BIOS defintion for READ. * 

108:;* * 

^09; . ************************************* 

110: read: 

111: ;read the selected CP/M sector 

112: ravi a r l 

113: sta readop ;read operation 

114: sta rsflag ;must read data 

115: mvi a,wrual 

116: sta wrtype ;treat as unalloc 

117: jmp rwoper ;to perform the read 

118: ; 

119 : • ***************************************************** 

120: ;* * 

121: ;* The WRITE entry point takes the place of * 

122: ;* the previous BIOS defintion for WRITE. * 

123: ;* * 

124: ;***************************************************** 

125: write: 

126: ;write the selected CP/M sector 

127: xra a ;0 to accumulator 

128: sta readop ;not a read operation 

129: mov a,c ;write type in c 

130: sta wrtype 

131: cpi wrual ;write unallocated? 

132: jnz chkuna ;check for unalloc 

133: ; 

134: ; write to unallocated, set parameters 

135: mvi a,blksiz/128 ;next unalloc recs 

136: sta unacnt 

137: Ida sekdsk ;disk to seek 

138: sta unadsk ;unadsk = sekdsk 

139: lhld sektrk 

140: shld unatrk ;unatrk = sectrk 

141: Ida seksec 

142: sta unasec ;unasec = seksec 

143: ; 

144: chkuna: 

145: ;check for write to unallocated sector 

146: Ida unacnt ;any unalloc remain? 

147: ora a 

148: jz alloc ?skio if not 

149: ; 

150: ; more unallocated records remain 

151: dcr a ;unacnt = unacnt-1 

152: sta unacnt 

153: Ida sekdsk ; same disk? 

154: lxi h r unadsk 

155: cmp m ;sekdsk = unadsk? 

156: jnz alloc ;skip if not 

157: ; 

158: ; disks are the same 
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1 r A . 

159: 




Ixi 


h , una trk 




160 : 




call 


sek t rkcmp 


;seKtrK — unatrKr 


161: 




jnz 


al loc 


;skip if not 


162: 


• 








163: 


• 


tracks 


are the same 




164: 




Ida 


seksec 


; same sector? 


165: 




lxi 


h , unasec 




166: 




cmp 
jnz 


m 


;seksec = unasec? 


167: 




alloc 


;skip if not 


168: 


• 
f 








169: 


• 


match, 


move to next 


sector for future ref 


1 "7 /7i 

170 : 




inr 


m 


; unasec = unasec+1 


171: 




mov 


a ,m 


;end of track? 


7 "I 1 

17 2: 




cpi 


cpmspt 


;count CP/M sectors 


1 / 3 : 




jc 


noovf 


;skip if no overflow 


174: 


• 






175 : 


• 

r 


overflow to next track 


t *7 r 

17 6: 




mvi 


m,0 


; unasec = 0 


177 : 




lhld 


unatrk 




7 *7 n 

178: 




inx 


h 




179: 




shld 


unatrk 


;unatrk = unatrk+1 


18 0: 


• 








181 : 


noovf : 








18 2 : 




;match 


found, mark as unnecessary read 


lo3 : 




xr a 


a 


;0 to accumulator 


184 : 




sta 


rsflag 


;rsflag = 0 


18 5: 




jmp 


rwoper 


;to perform the write 


TO/" 

lo 6 : 


• 








TOT 

18 7: 


alloc: 








loo: 




;not an unallocated 


record, requires pre-read 


■ton 

18 9 : 




xra 


a 


;0 to accum 


inn 

19 0: 




sta 


unacnt 


; unacnt = 0 


191 : 




inr 


a 


;1 to accum 


192: 




sta 


rsflag 


; rsflag = 1 


193 : 










194 : 


.************************* 


195 : 


. * 






* 


196 : 




Common 


code for READ 


and WRITE follows * 










* 




.***************************************************** 


ion. 
19 9: 


rwoper : 








0 01 CI • 

z w w : 




; enter 


here to perform the read/write 


201: 




xra 


a 


;zero to accum 


z w z : 




sta 


erf lag 


;no errors (yet) 


o d "a . 




Ida 


seksec 


;compute host sector 


z b 4 : 




rept 


secshf 


z 0 5 : 




ora 


a 


;carry = 0 


*"* n c 

206: 




rar 




;shift right 


O /* "7 

20 7: 




endm 






20 o : 




sta 


sekhst 


;host sector to seek 


O fil Q . 










210: 


• 


active 


host sector? 




Z J. x • 




lxi 


h,hstact 


;host active flag 


212: 




mov 


a,m 


213: 




mvi 


m, 1 


; always becomes 1 
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9 1 A 








;WaS It allcaoy: 


Z 1 D 




3 z 


f ilhst 


;fill host if not 


9 1 £ 
Z ± O 








Z J. / 


# 


nose 


buffer active, same as seek buffer? 


z 1 o 






c* a \f r\ c* 1^ 




z ±y , 




XXI 


ii , ii o l.u o r\ 


• q j^tti ^ H i c \c 


■? 9 a ■ 

Z Z X) 






in 




9 9 1 • 




J I1Z 


n nm a trh 




9 9 9' 
z z z 










223 


• 


O CLillw 


^ 1 cl( eamo t- r a f If 
u x o rw , o an i li ci • 




9 9/1 

Z Z *l 




1 VI 


11 , 11 O LLlh 




9 9 5 

Z Z J 




ool 1 

tail 


cjpk t" rkemo 




9 9 fi 
z z o 




j nz 


11 LUUo COll 




9 9 7- 
Z Z / ! 


J 








9 9 ft 


• 


o dill tr 


i c t c amo f r a pt 
<J 1 o ft , o alUt: tldtJ\ , 


C atno hll f f or? 
o culler UU L L c I • 


229 




Ida 


sekhst 




9 i a 

Z J Kl 




1X1 


h ,hstsec 


; seKnst — nstsecr 


Til , 
Z O J. ! 




cmp 


m 




9 7 9 
z o z 




— 1 rr 
J Z 


match 


;skip if match 


9 "3 "3 
Z J j 


7 








: noma ten 


• 
• 






9 m 
Z J j 




;proper disk, but not 


correct sector 


9 7 




Ida 


hstwr t 


;nost writterif 


Z J / 




ora 


a 




9 7ft 

Z JO 




enz 


wr i tehst 


;ciear nose duii 


9 3 9 










9 4 0 










9 41 




;may 


have to fill the 


noat Duller 


9 4 9 
Z *t z 




Ida 


sekdsk 




9 4 7 
Z 1 J 




sta 


hstdsk 




9/14 
Z 4 *i 




lhld 


sek trk 




9 4 R 

Z 4 J 




shld 


hsttrk 




9 4 fi 




Ida 


sekhst 




9 4 7 
Z 1 / 




sta 


hstsec 




24ft 

ti T U 




Ida 


rsflag 


;neea to reaar 


949 




ora 


a 




2 50 

c -t v 




enz 


readhst 




TCI , 

z 31; 




xra 


a 




252< 




sta 


hstwr t 


,inj jjtriiuxny WL ice 


253; 


• 






254 


ma hch • 

lilt* WW LI ■ 








255 




;copy data to or from 


out ter 


256 




Ida 


seksec 


;mask buffer number 


257 




ani 


secmsk 


;least signif bits 


2 58 
a* ^ u 




mov 


l,a 


;ready to shift 


9 

Z D J 




mvi 


h,0 


;double count 


9 fi 0! 
Z D 10 




rept 


7 


;shift left 7 


9 fi 1 ■ 
^ D J. i 




dad 


h 




9 fi 9 
Z D Z , 




endm 






263' 


/ 


hi has relative host buffer address 


264 

*i U T 




lxi 


d ,hstbuf 




265: 




dad 


d 


;hl = host address 


266: 




xchg 




;now in DE 


267: 




lhld 


dmaadr 


;get/put CP/M data 


268: 




mvi 


c,128 


; length of move 



70 



269: Ida readop ;which way? 

270: ora a 

271: jnz rwmove ;skip if read 

272: ; 

273: ; write operation, mark and switch direction 

274: mvi a,l 

275: sta hstwrt ;hstwrt = 1 

276: xchg ;source/dest swap 

277: ; 

2 78: rwmove: 

279: ;C initially 128, DE is source, HL is dest 

280: ldax d ;source character 

281: inx d 

282: mov m,a ; to dest 

283: inx h 

284: dcr c ;loop 128 times 

285: jnz rwmove 

286: ; 

287: ; data has been moved to/from host buffer 

288: Ida wrtype ;write type 

289: cpi wrdir ; to directory? 

290: Ida erflag ;in case of errors 

291: rnz ;no further processing 

292: ; 

293: ; clear host buffer for directory write 

294: ora a ;errors? 

295: rnz ;skip if so 

296: xra a ; 0 to accum 

297: sta hstwrt ;buffer written 

298: call writehst 

299: Ida erflag 

300: ret 

301: ; 

302: • ***************************************************** 

303: ';* * 

304: ;* Utility subroutine for 16-bit compare * 

3 05: ;* * 
306: ; ***************************************************** 

307: sektrkcmp: 

308: ; HL = .unatrk or .hsttrk, compare with sektrk 

309: xchg 

310: lxi h, sektrk 

311: ldax d ;low byte compare 

312: cmp m ; same? 

313: rnz ;return if not 

314: ; low bytes equal, test high Is 

315: inx d 

316: inx h 

317: ldax d 

318: cmp m ;sets flags 

319: ret 

320: ; 
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321: .***************************************************** 

322: ;* * 

323: ; * WRITEHST performs the physical write to * 

324: ;* the host disk, READHST reads the physical * 

325: ;* disk. * 

326: ;* * 

327: • ***************************************************** 

328: writehst: 

329: ;hstdsk = host disk #, hsttrk = host track #, 

330: ;hstsec = host sect #. write "hstsiz" bytes 

331: ;from hstbuf and return error flag in erflag. 

332: ;return erflag non-zero if error 

333: ret 

334: ; 

335: readhst: 

336: ;hstdsk = host disk #, hsttrk = host track #, 

337: ;hstsec = host sect #. read "hstsiz" bytes 

338: ;into hstbuf and return error flag in erflag. 

339: ret 

340: ; 

341: • ***************************************************** 

3421 \* * 

343: ;* Unitialized RAM data areas * 

3 44: ;* * 

345. . it**************************************************** 



346 



347 


sekdsk: 


ds 


1 


;seek disk number 


348 


sektrk : 


ds 


2 


;seek track number 


349 


seksec: 


ds 


1 


;seek sector number 


350 


» . 








351 


h s td s k : 


ds 


1 


;host disk number 


352 


hsttrk: 


ds 


2 


;host track number 


353 


: hstsec: 


ds 


1 


;host sector number 


354 


: ; 








355 


: sekhst: 


ds 


1 


;seek shr secshf 


356 


: hstact: 


ds 


1 


;host active flag 


357 


: hstwrt: 


ds 


1 


;host written flag 


358 


? 






359 


: unacnt: 


ds 


1 


;unalloc rec cnt 


360 


: unadsk: 


ds 


1 


;last unalloc disk 


361. 


unatrk : 


ds 


2 


;last unalloc track 


362. 


unasec: 


ds 


1 


;last unalloc sector 


363 


7 








364 


erflag : 


ds 


1 


;error reporting 


365 


, rsflag: 


ds 


1 


;read sector flag 


366 


• readop: 


ds 


1 


; 1 if read operation 


367 


wr type: 


ds 


1 


;write operation type 


368 


: dmaadr: 


ds 


2 


;last dma address 


369 


: hstbuf: 


ds 


hstsiz 


;host buffer 



3 70: ; 
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371: • ***************************************************** 

372: 'j* * 

373: ;* The ENDEF macro invocation goes here * 

3 74: ;* * 

375. . **************************************** 

376: end 
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